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PREFACE 


The VIC-20 is a small computer. It is only small in size, but of 
great performance. During the last weeks, writing programs on this 
computer, | found out many features | liked. 

The VIC-20 is a real computer, not a toy. 


The programs and projects in this book range from games to 
mailing list and from an introduction into machine language on 
the VIC to input/output programming. 

Though there are many ready-to-run programs in this book. Make 
your own changes and use the hardware hints and tricks to 
enhance the VIC, so it fits exactly to your specific needs. 

| have to thank Franz Ende for the translation and Sefie Maier for 
typesetting and her help in completing this book. 


Los Angeles, Spring 1983 Winfried Hofacker 
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Wordprocessor 
for VIC-20 


Wordprocessor for VIC-20 (8K RAM required) 


After you have’ started the program use the 
following sequence of operations : 


1. Select memory (M) or tape (T) 
2. Enter line length (max. 70 characters/line) 


If you selected memory (M) 


3. Enter number of tabulator-positions and values 
for the different positions 

4, When ready press the space bar. 

Sr Enter your text. Use key INST/DEL for 
corrections. The cursor keys do not work during 
input. If you press the key with the up-arrow the 
preceeding line will be displayed again. 

6. When finished with your text press the key with 
pe ae 

te If you press that key again the first block of 
text wili be displayed. 

8. If you enter 'D' and a line number,’ that line 
will be displayed. Now you can edit that line. The 
Cursor control keys can be used in this mode. 

9. 'I' plus line number creates a blank line in 
front of that line. 

10. 'D' plus line number deletes that line. 

Tis 'L' plus line number links that line and the 
preceeding line (up to max. line length) 

12. '>' will display next block of text 

13. '<' will display preceeding block 

14. 'X' continues with program. 


If you selected tape (T) 


15. Enter name of file. 

16. After the file has been loaded from tape 
text will be displayed on the screen and you 
the commands described under 8.-14. 


SE PORE 658.125 °POKE 269873, 6°FRIMT" a" GOSUBL Soe 

100 FRIHT OMVITES ime: ee PI So! MOI Mel": GOTO4+ae 
116 FRIHT' a PRESS SFACE BAR WHEN READY” 

128 GETA£: IFAS<>" "“THEHL2e6 

130 RETURY 

146 PRINT" CIs | FOR T=aT09: TPN+T>CTHENRETURH 

158 PRINT RIGHTS AS¢N+] > LENS ASON+] Oo -1 9 MEXT  RETURH 


166 PRINT" SRB CHR! S40 CHES (S40 CHRE CSB) SI SPC CA++ TSM OPOKEG631.29:POKE199. 1: 


RE Tir 

i7@ FORK =4096 To4097? (POKER. So MEXT > RETURNM 

180 PRINT SMA" AGU CHARACTERS LIME"  G=1111 ° G0SUBRSa: GOSUBITBA: RETURN 

1S as ees bee "HOT POSSIBLE MEMORY FULL" 

2a S208  GOSUEISG | GOTOSae8 

216 Sere: IFRS PRAMAS CoA" THEMES 1 

220 RETURH 

230 FRIAT SSM@EMORY OF ST BAPE oN 

244 GETBS: IFRS. "MM" ANDES" TT" THEM S44 

258 RETURN 

269 FORISR1TOC ASC lo=""COHEST Ul Y=FRECG OO PRIWT OS" RETURN 

27 PRINT’ THAME OF FILE eeeeee IF AO NAME HIT’  INPUT"RETURM SIR | AS 
230 [FA¢="“"THEMAS="" 

290 PRIMT'TFILE "; AE 

231 IF J=@THEWPRIWT" IS SEARCHED FOR" GOTOS9S 

292 ITFJI=1THENPRINT’ IS SAVED"  GoTO295 

235 GOSUBLSGG@: OPEWHB. I.J.,A&:> RETURN 

3Q8 Bet: l=F4+1:J=1°GOSUB27@: FORTHLTOC: PRIWTH#E. CHRE (34 94+A$019 HEMT 

216 CLOSER: POKE 193.49: RETURN 

S20 FORR=1T0Q: HEAT: RETURH 

338 LeL+lLencAgchd+J5 8D: LELS. Pe YORCEMTHEHME=2 

346 RETURH 

2560 R=8:TeD+1 > IFUSHTHEMD=2 > [FO=G@THEHRETURH 

=e IFIMIDE¢A$. 0.192" "THEME =1 

S7H TFR=OQTHEMFE TURM 

7261 GOTAS56 

390 D=-1:GOSUB3390:C=C-1L:FORISREH+ITOO Ac losRAecl+19 (HEXT ASC lo="" RETURN 

494 POKE 193.49 GOSUBSSE: CH=Bs PRINT TD": 

4160 I[HFUT" @4Ax% LINE LENGTH". A’ LFAR=8THENAREEe IFAS? THENPRINT "OO":  GOTO41a 

$20 IFEBS="T" THEHS1& 

456 PRINT  S@AUTOM. CARRIAGE RET." PRINT BETWEEN" 

440 FRIHT POSITION "A-?7"AHD"A+S 

450 INPUT" @HUMBERF OF TABS") T: IFT=@THEND AA 

460 [FTP IGTHEMPRIHT' 7): (GoTO4sa 

47a PRIMT' MQEFINE TAB POSITIONS" 

450 PRINT" TAR. POSITION BETWEEN 1 AND "AS PRINT FORIT=17T0T 

$90 PRIMT' STAR HO." 1)  INFUTTH C19 IF TAC LI DATHEN4ASe 

491 HEST 

2 IF V=1THENSae@ 

ane M=INTCRRE CO) °A +18 > SINT. Seto DIMAS CM YS=FRE CG): IFBS="M" THENSSS 
See Bel: J=1: J=@: GoOsuReTe@ 

Gan FORC=17TO2 > IMPUT#1.A€CC> (-L=L+LENCAecc 

“48 IFST=647HENPRIWMT'SRILE "JA." FOLINDS :GOSUBS1a ‘coTOaTe 

Ha TFLD. *#YTHEMGOTOS 7G 

268 MEAT C=l-4 

S7G F*i-FOKE 193.49: GOTOSE 

S36 GOSUBI1a 

2968 PRINT": (PORESE4,.@4:°C=1°0=@:E=8:Ag¢{ =" 

66k GETA£: IFAS=""THEHEa 

G16 TsASC CAS ANDL2?7: IF T=13THEM? Se 

628 ee LANDAS=" "SORT=S0RIT=170RI=190RI=180R1=29THENéaa 

630 T=@: TFASCCA€s=<1S3THEMPRINT ST": - GOTOR?E 

646 fess EH ES 2” 

65@ IFI=SSTHENAS=", 

Be [FAS="" "THEMAS=" 5" 

BPO IFAR€="" "THEMAS=": " 

GSk TF L=S5 THES sa 

eo [TF IC>SBAWNDIC>S4THENPRINTAS: (GOTO? 
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IFLEM OAS (Co a= 1 THEM? es 
ASC Co=LEPTE CAS Co LEMCAS CO 9-1 PRINTCHRE (205; -GoTOeAa 
Ag Coe Cele1  LelL-LEM ASC > 

IFLEM AS CC 9 o>SLTHEMPR INT  @ )' 
PRINT @ EM RIGHTE AEC Co  LEMCASCC o-19 5  GOTOERR 

TRLEH CAS Co ose THEMMSRS25+PEEK 214) POKEX. (PEEKS KOOR1 28 5 
PRIMT @ "CHRECL S55 (E=@°LeL+LEN CRE CC 9 

IFC#cORLS. Se'YTHEMPRIMT 0! GOTOREE 
Celt 1 A€¢Cos mY GOTO6ee 

IFE=QANDLEN AS <0 DA-PAHDAF=" "THEMRSe 
ASC CoSASCCo+AF 

TPLEM CAS 09 5 A+ 3 THENE ES 
Del GOTOrée 
FORG=1TOT IFPEEK C211 9>"7Th 0 Q>-1 THEMMESXT : GOTOSaA 
P=eTacGo-PEER CSL 1o~1 FORWMELTOP AS CC eAsCCo+" "OPRIMT" "5 HEAT 
Een Toe¢TCS> Ls GOTOGGR 
PRT OMEMOR'Y FULL." 
PORE SES. 1° PRINT SIDISPLAY TEXT! I OPRIHT "SPRESS FL WHEH O.K.” 
BETA: TFAS<°CHRE« 1230 THENSSe 
H=1 
COSUEL4G: IF T=3THEML 218 
PRINT @CBHAHGE AME LETE QIGNSERT SLBIMK + LIME HUMBERS" | 
PRIHTSPCCSo"OR 3M RESP. @>M ace: 
BETHE > IF CR#="<° AMDMS LAS ORAS=" >" THENMSH+ 1 ees ~ 1a CASE" "5  GOTISaG 
IFAS" " THEML 218 

IFAS=" "ORCAS. oD! ADRS CD CU ANTIAS CS LU AMTIAS > OLY > THEN Se 
PRIMTA 5 
GETES: TFBS=""THEMHS?a 

IFASC CBS =2ATHEMPRIMTES: (COTO 26 

IFASC OPS 3 4O0RASCK RS o> ST THEMES Te 

PRINT Ss PRINTES:  TeVALCES9 IF I> 1 THEHI= 18 CAS C> UA 1 

IF At="D" THEMGOSUBSSO : GOTOS8E 

IFAS=" 1" THEM 1 ae 

IFAS] "LL" THEML Le 

IFE*2THEMTFFRE (ao C258 THEMAS= "CHAHGE" > GOTO1 SA 

Te-1 GOSUBS3E  GOSUE LER PRIMTRIGHTS (AS CH+JS 9 LENO AS CHET oe to THPUT St AF 
GOSUBR IPE: IPLEM CASS >A THEMGOSUBISe  GOTOLEA 

ASCM+ Toe +A D1 GOSUBSSE: GOTOSRE 
IFESSTHEMIFFRE* 8> OSBR0RC=MTHEMAS= "INSERT" -GOTOg9e 

FORTSHCTON+ ISTEP 1 ACT +19 "ASC D9 MEXT Cet+) 

GOSWEBLEG: THPUT! "AS GOSUEBATR [PLEM CAS SA+2THEMGOSUE La GOTOL LEG 
GOTOL are 

FORReH+STOC@ 1 Agee OR  RS@AECR+ 19 WELEN CAS) OKeLEMCE So: TPR CSORW= 1 THEMoGe 
TP WAP THENHE ST ( OOT OSE 

IFMITS¢he. 2.192" "THENSEE 

TFECA-G-NTHEML Loe 

FORBSA-S-WTOK-1 IPMIDScE$. Boe" "ORBDA+3-WTHEM 19a 

HET 

ASCR OS RE+" UFR TGHTE CES kL Jsk+1-H GOSUBSSO  HEXTR  GOTOSa8 
ASCROSAS+" C+ TDS ChE. 2. Beas TFMIDS ES. Bel. doe" "“THEMB=B+1 
AdCR+ Loe +R TIGHTS CES. E- Bo MEXMTR  GOTOSRS 

PRIMT SOL) WANT TO READ THE TEST T"  GOSUB aie 
TFH=" 4)" THEMSSe 

PRINT SIS PRIHTER HOOKED UPCMY GOSUB 210: IFAS="N" THEM Sae 
PRINT? O@TURM OM PRINTER’ (GOSUBLTG* PORE LSS, 52: OP EM4. 4° [Fuel THE Se 
GO PRINT" AROUBLE LIME-FEED?M"  GOSUB 21h Se cage 5 

PRIMT @NMAe. LIHES“PABEM" PRINT: 

THPUT ORME HOODOO SL. MARR Oe PRAT 

PRINT PAPER ALIUSTED? GOSUBP LG ESAS: Ded PORT=17TOC  Af=AF C19: IF BS="HORTHaCT 
ok 

H=LEMCHS 9 P=LEMCRE CT +to9 TRPSDLITHEMIPMIDS¢CRe 1+) 0.2. 1902" "“AHOMOA-P THEN Lie 
GOTO Liste 

IFH=A+S3 THEM 1 348 

B21 GOSUBBIG: GO: GOSUBSSG: IFDee THEM i a2e@ 

ASSLEPTECH#. Tot! "+ TDScR$. D+to  WeN+1 GOTOLS18 

GOSUBLSIG PRIHTH4. CHRES 165 008 9R# e641 °F S=-1 THEMPRINTH4 

IP G<oATHEH LS 

PRINT SOMA. SRS "LINES “PAGE OPRIAT ADJUST PAPER" 
GOSUBL LG: Ga: PRINT oy" 

HEMT Be4 GOES 1S 

PRIHT CMI TSPLAY AGAIN SM! GOSUBLLE: TFRS="4" THEM LS4e 

PRIMT  ABSAVE TEST OM TAPER! GOSUERSI@ TPAS=" 4" THEMGOSUB SEE 
PRINT" Qa I SPL TEeAT SGAIHTE! GOSURELIO TFA¢="9" THEMSSo 

Es: [FF=1 THEM] 4380 

PRINT" SOADD MORE Tee Tem!  GOSUR2TE TFAS="H° THEM PORELSS. 52: EMD 
PRINT SOCOMTINUE SE! OPRIHT  GOSUEe 1a 

IFA" "HN" THENCLE  COTO4G@ 

BOSUB ase IF BE=" TT" THEMGOSUBSSE : GOTOS2S 


PAS "TO GOTOE6A Ved: GOTO 


WA PROAT PRINT PRIAT PRET 

@ PRINT" S@PLEASE WALT" 

i526 RETURN 

1558 PRINTS" PR THT SPR IHTER CUTPUTE"  GOSUBLS Oa: RE TRH 
eM PRIMT SSPRIHT HEADL IME" 

1565 GOSUBSIE 

1S? LPAS=" 9" THEM L Soe 

1575 TFA€="H" THERE TUR 

L58G OPEM4, 4 


1585 PRINT#4, CHRE¢ 149 CHRECL7OCHREC IES "GSOINFRIED «DING": 


1590 PRINT#H4. CHEE S140 CHRS CLP OCHRE CLE "45 LAWGE | ASE 14" 
16068 FPRINT#H4 CHEE. 140 CHR EC LP SOCHREC LEO "4509 GUGS BURG" 
1614 PRIMT#H4 


1626 PRIMT#4. CHREC L459 CHREC 17 OCHREC169"441 ELEP. G82) “a5 a95" 


1630 PRIHT#H4. CHRE* 15% 
1644 PRINT#4 
Lele CLOSES > RETURN 
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3.5K RAM 


TEST OF REACTION TIME 


2A TR OE] "A" THEMHGOSUBSGE PR THT" @0.6. CONTINUE, MY Ge S55 GOSUBSSe oOTOs Se 


BE GOSUBEOG PRINT LOAD STERT PROM TAPE Le@ Fea ooSunL ia GoTosse 


This funny reaction time tester is the perfect game 
for your partys. The game is played by two players. 


The first player uses key A for input. 


The second 


player uses key L. If a "e" appears on the screen, 
the first player has to press A. The second player 
must not react at this time. If he does he gets a 


penalty. If a "o" appears on the screen, 
player has to press L. At this time, 
player must not react. 


1 PRINT! CH 

1@ PRINT’ TEST OF REACTION TIME" 
20 PRIHT'FOR THO PLAYERS” 

30 PRIHT FIRST PLAYER USES" 

40 PRIHT'KEY “AS. SECCMD" 
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a0 PRINT SOMPLAVYER #1 PLAYER #2" PRINT! "ayo" Nee 


PETMT FLAYWER USES KEY “L°" 
FRIHT' IF A Ce" APPEARS" 
PRIMT'OH THE SCREEM, " 
PRIMT' THE FIRST PLAYER"! 
PRIMTUHAS TO PRESS Re" 
ROR Wed TOL S868: HER T 
pete a" 
PRIHT'IF IT I5 A “O" THEW" 
PRIMT' THE SECOND PLAYER" 

PRIMT HAS TO BPRESS HIS KEY! 
PRIMTUEACH IAAP CAUSES of 

PRINT MIHUSPOLMTS" 

PRIMT SOMETIMES Fo «ee 

FR THT "MILL BE DISPLAYED 

PRLHTURT THIS TIME THE FASTER" 
PRETMT RLAVER GETS THE SCORE” 
PRIS" TF SOU READE Sree! 
PRETHT LE FIRST. SAC Wn" 
BROTH) UR RE SS Abdo RY" 
BETAE IF AE" "GOTO 

Pre THT oy! 

GOSUESBA REPL TEL Fy 

GOS LES RET FUT WF TARGET 

GOS IEA REP SCORE 

GOTO Pe 

Feet] THELLPGY SLIBROUT THE 

POR T= 1 TORTS See Se Ae STA SS 5 EST 
Pee: TIP 

QNeIMT ORAM So eo fo Ae TAT RDC Some d+ 1 3 
PRINT So CFG D1 TOD PRD eT os Ee 
PORTE LTOR CPR TMT Mi oO HEMT 

TSE THT CRT 2 owes do 

GETAS: IFAFC2 ! "THEMGOTOSSS (PER CLE BUPFER 
TF T=) THEMPR IMT @" ; 

IF TS2THEMPR INT "i" 5 

[IF T@3THEMP ie LT "88" | 

Fee TIP 

arts T 

TFT ~88 SMTHEMGOT eb ee 


2 REM 
4 REM ZEIT 
§ GETAS: IF AS=""THEM GOTO4e4 


TF T=1ANTA¢# "4" THENS eS +d 
LF T=1AHDAE= "| THEMSZ=t2~2 
IF TS2AHDAe=" 1" THEMES 2+ | 


{IF TSahMDAg= "A" THEMS L]S1-2 


IF T=SAHDAS= "A" THEM S LeSd +1 
IF T=3AN0RE= "1" THEM SS e+ 1 
PORTS 1 TO2G ae othe 2 MERT 
BETES: IF BEC! ' THEMGOTO47E REM CLR BUFFER 


PRINT a OP OR TS. TOD PRTAT a! 5 MEST ara: armas 


a2 FORTS=1 TOR: PRIAT ME 5: EXT 9 spaces 
28 PRINT" "GcREM ERASE TARGET 


Fee TIP b4 


Simple number 


guessing game 


SIMPLE NUMBER GUESSING GAME 


In this game the camputer thinks of a certain number 
and you have to guess the number. 

After you have entered your guess, you get a hint 
about the relation of your and the camputers number. 


100 REM eee HUMBER GUESSING GAME ee 
116 REM COPYRIGHT BY ELCOMP FUBLISHIHG IM. 
2£i@ PRINT OT THIHK OF A HUMBER" 
215 PRIWT BETWEEN 1 AWD Lee" 

ee PRIAT TR! TO GUESS py" 

223 FRIWT MUMBER. ARPTER EACH" 

com PRIMT TRY To WILL TELL Yio" 

eer FPRIMT WHETHER IT WAS RIGHT. " 
246 FRIHT"OR TOO HIGH. Of: ae bd" 
SA REM ae COMPUTER THIHES 

SAS REM OF MUMBER fy ae 

S1@ LET “=INTCLG@GQ#EHIG Lo a+ 

eM PR IMT 

228 FPREIHT"OR,. I GOT A HUMBER" 

235 PRINT START GUESS IHG" 

400 REM #48 THE INDIVIDUAL 

405 REM sTARTS GUESSING ## 

$10 FRIMT 

$26 FPRIMTUENMTER YOUR GUESS" | 

425 FRIMT 

438 IMFUT G 

440 IF G=4 THEM Sea 

458 IF Gon THEM 488 

460 PRIHT TOO LITTLE, Try A" 

465 FPRIHT BIGGER HUMBER" 

4°76 GOTO416 
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PRIMT' TOC BG. Thy A" 

PRINT SMALLER HUMBER" 

CUNT Ct 1 

RET eR THE IMDIWITUAL HAS FOUMT 
REM THE FRIGHT HUMBER ska 

te THT 

PRIMT YOu GAT TT ot" 

PRINT AGAIN": 

THRUT Ae 

IF Ag=""'" THEM PRINTS GOTO see 
EMT 
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SS ae 
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Arithmetic with 


VIC-20 


ARITHMETIC WITH VIC-20 


With this program you can excercise either 
multiplication or addition. For correct answers you 
get a good mark. If your answer is incorrect three 
times, the camputer will help you. 


1 REM ARLTHMETIC 

1G PRINT'STHIS DS AM ARITHMETIC TEST" 

16 PRIHT 

16 PRINT "SO FAR YOU HAVE" Ra "RIGHT AND! Ws "WRONG" 
L? PRINT 


a! “t ‘a senne ti 
hs ote ‘i oe 
on fd 
hee ot SO II 

ne | 


46 FPRIMT' CLoFOR MULTIFLICAT LOM" 
mil Fe TPT 

BO PRIMT Ceo roR ADOT T TOR” 

re PRIWT 

Sel IMFLUT I 

ial Fe DHT 

Lee TF Ted GOTO ae 


118 TF Tee GOTO Sse 

le ITF Deo GOTO Bee 

ta6 GOTO Bee 

SHE LET AR IMT CRMDOC LS oe LS 3 
SES LET Ys INT oeete Looe dl + to 
S16 TF “1a THEMPRIHT! se 
S22 IFAS LETHEMPRINT" 5 
fee TF Yee THEM PRIMT! wy 
are’ IF Woe ATHEHM PRIM T 5 
SHE PRIMT! ou! 

ALE LEST (ts peal! 

S24 IMFUT I 

a8 GOTO 126 

Bo Be IAT ORMD GS 36 3 e+ 1 
soo PRT TC RHI Sea e+ | 
368 [TFACLETHEMPRIMT! 3: 
2k TRO LGTHEMPR IIHT! oe 

$18 [TFYCLeTHEMPRIMT'+ "57 

420 [FYo>=16THEMFPRINT +" 54! 

450 FRIHT" 7 

EA Cha ety 

47a IMPUTO 

460 GOTO 26 

2AM FRITS ARE RIGHT 1): Rep y 
SS Re TPT 

DENS gel | 

wo TRF2CSG0TOS12 

SLE GOT ei 

“ike IF LT=1G00TO2He 

ht TFL S=2G0TAs56 

BHR PRIMT WRONG. TRY AGAIA. eS behed 
B16 PRIHT 

Eel isnll} 1 

Bs6 ITFV¥=SG0TOES5e 

E46 TFI=1G0 Toe 16 

Ets TRL EsGoTose 

Eo PRINT CORRECT AMSMER DS's 

sek FRE THT 

bre GOTOLE 
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TIC-TAC-VIC 


3.5 k RAM 


TIC-—TAC-VIC 


TIC-TAC-VIC is a VIC-20 version of TIC-TAC-TOE. When 
you type in the program be careful enter all the 
blanks and the cursor control cammands! 

Start the program with RUN. The camputer will ask 
you whether you want 'X' or 'O'. The player with '‘X' 
Starts. 

Try to get three of your characters in one line 
(vertical, horizontal, or diagonal). 


PRINT! IP": PRIWT > PRIWT 


FORS=1T0e: PRINT" re eM HESTA 

PRIHT' TI id = on = or 

FRINT"' a i 

FURA=1TOe: PRINT" a qo HESTA 

PRINT!) 4x a on # 6" 

PRINT" & a" 
FORS=17T0e:FRIMT" a eo COMESTH 
PRINT"? ra a co # a 
PRIAT SO SOU WAHT “ac OR “O"" 


GETC#: IFC#=""THEMS2 
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Airbattie 
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AIRBATTLE 


This game is played by two players. The left player 
shoots with 'A', the right player shoots with '0'. 
Different planes at different heights are flying 
over the playfield. 

Since the whole program is written in BASIC it is 
alittle bit slow. If you change the movements and 
the sound generation to machine language you can 
develope the game. 

This program shows the beginner how to create his 
own games. 
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INTEGER DIVISORS 


This small program can be helpful with the homework 
of the student. It calculates the integer divisors 
of a row of numbers. 
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SHOOTING GALLERY 


This is a enjoyable shooting game with sound. A 
firing base is moving up and down on the left side 
of the screen. On the right side is a wall with up 
to three holes. If you hit a hole you get 100 
points. If you miss the hole then 10 points will be 
subtracted fran your score. One game is five rounds. 
At the end of the game the total score is displayed. 
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This program works with the two cursor control keys. 
After you RUN the program you move the cursor to the 
Square (submarine) in the middle of the screen. 
it will 


you are in the center of the submarine 


explode. 
Try to get aS many points as possible within 120 
seconds. If you are very good you will get extra 
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—= 


JT; en feo fae et ES oo Pow es a te 
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aed 
Rai Me Mae 


ad 
fai tal 


ati NS aS 
a i A 


mi er 


1 


m0 CA fe td fa ee ee I em a 0 
pass 
at, 


mo 
mt 


ct 
Ti of. fi 


. * ee RT hE es ee = 

Th CAS Se CO D8 CA RO AON BR 
‘t 
a 


LOR I AC ON 
AD LP oe Ee ee a fa 


cx 
soak 


my 


LN 
rot it 


= 
tle 
ay ee ee ee Oe ee ce 


— 
camp 
ist tnt i iat dat ts if 


A gi a LALLA Lec cnn Ph hh ppp ppppphbheappahpphpabh pining: 
LIT Ly a es ht 


[ue fo 


t 


‘swabs’ 


NO 
NO 


oe 
= 


FORIS=17T02 1° PRTG OCRDTa a 
PRI] amy" 

RE TURK 

Si=TI 

SC“: REM INITIALIZE SCORE 
ET=IMTeCTI-S13 eo 


PRIHT SMITIME' SET) "SSB RBBRBBBBECORE® Sc. s". 


IFSC >=S RGA THEHOCSUE LT Aaa 
IFET2=AT THEME: REM GAME OVER 
RE TRH 

RMZINTCRHDIG TI oe#iatas 
RVoTHT CRM TI ai S+s 

FRITH Tad": 

FORITS1LTORE PRIA UM! OHERT 

FORISI TORY FRITS! s > MES 

PRI SCN be EE Eo PD" | 
DS=IMTCRMOCTI #141 #188 
PRIHTINS ; 

PRINT sg": 
FORIS1TOCM PRINT as HEAT 
FORI=17T0Cy FRIHT SN! BEST 
GOSUBSALA 

RES LF 

RES 

GETAS 

Oe = 

GOSUBSALE 
IFRS=""GoOTO4daLTa 
IFAS="")"THEM GOSUB4SE 
IFRS= "Ht" THENGOSUBSEOS 
IFAS="8" THEM GOSUB4SH 
IFAS= "EE THEH GOSUES 4 ae 
IFOK PL THENGUTOSE 1 
FOR I= {Toc (PRIKT UME MEST 
FORIT= LTOCY: PRINT" | le oe 

FRIWT Me. (CN=CH40%  Cy= C+D! 

IF Cea THE ciat 

IF CADEETHEMCH=2 

IF th’? “io THEM peer 

IF CYASTHEMCY=2 

IFC CMS ERS ORES SRY GOT O4e 1 

RE TUR: REM A HIT! 

Ok=1 t=" He) | Daee: Thy] Re TURN 
Oe=1:ié="8l Ge": Ds= Tis: RE TURE 
CE=1:° t=" @" > De=1: i= RE TLR 
OR=1°h6¢="H ED" Desa: Ti=-1 > Re TUR 
REM 

PRINT USE 

PRINT "GHA Sel wee Be aa 
FOR T=17TOSH: s=SIH¢a)  HERT 

bOSUE Seca 

FRIHT' Tae BRE! seal FREESE! 
mC SC+ OS 

FRITH T st": 

FOR T=1TOCe-1: PRINT OOP. OHEST 

FOR IS=i TOC PRIA a! oo HEST 
PRINT @' 

Re TUR 

REM EXPL 

POR ESBS YP. SS 


FORLEETORSTEP-1 PORE SESPS. LS FORM=17TO1e 


roe 
rae Pa Pa 


shook 


pw bt pe 
eg Oe 
‘ooclie’ 
ps 
= 
bee pee I I 
fi te 


~ * 


18126 
Liga 
118@5 
ii@ig 


— 
— 
i 


pip ig oy oe Pe po 
mo OA f3 


im 


" 
mt 


Fh 


feck ek pk pk pk be 
ae ee ee ee 
1 
pes 


ee eee ee ae Ls 
C0] iar me i at 


— 
a 
ae Ace 
epee ee TT I ee 


Pee 


im 


cna" 


a re oe 
—s forrete 


+, 
‘ooahe’ 


HESTM: NESTL: POR ES6S/?. 8 PORESES Ps. 
RE TUR} 
A PRINT" SOB BISIIGANE OVER...WANT TO PLAY AOA" 


INFUTYHS: IFLEFTECYHE. 12399" THEMGOTOSE 
EWI! 

REM BOMUS SECTION 

AT=156 

PRIHT" SSR RRR RRRBBIECHUS " 

PRIWT"S!" ; 

RE TURH 


PRINTS" -FRINT"SIMPLE SUBMARINE" 
PRINT" FIGHT" 

PRINT YOU WILL GET POTHTS" 
PRIHT"IF YOU ERIHG THE TOR-" 
PRIMT"PEDO IH THE CEMTER" 
PRIHT"OF THE EHEMIES SUEB-" 
FRINT'MARINE. ‘OU CAM USE" 
PRIHT" THE CURSOR CONTROL" 
PRIHT'KEYSCCSR > YOU GOT lek" 
PRIHMT'SECOMDS TIME.A SCORE" 
FRINTOVER Shee GIVES SOU A" 
PRINT" Se POINTS BOWUS, 
PRIHT' SOU MUST HIT THE 


FR INT 
PR INT"HIT ANY KEY TO STAHRT.... 
GETAS: IF A$=""THEH GOTO 1iiis 
RE T LIF 


A clock for your 


VIC-20 


3.5 K RAM 


A CLOCK FOR YOUR VIC-20 


TARGET IN THE CENTER" 


The following program makes a clock out of your VIC- 
20. Hours, minutes, and seconds are displayed and a 
ticking is created. To set the clock you, have to 


enter hours, minutes, and seconds 
number. For example: 


195352, means it is 


53 minutes, & 52 seconds, in the p.m. 


in a six digit 
7 hours, 


23 


1 DIMAC6>  DIMBCé> : GOSUBSAGE 

2 PRINTS", 

3 FOKESEST9, 1c 

4 FORTH17T06:> BCT d=-1:° NEXT 

18 FORT=1TOS AC TO=VALCMIDS*TI¢, 1.4195 °NEXTI 
30 FORM=17T06 

35 PRINT “ Speleletataieqere” 

40 IFECM3=A¢M>) THENGOTOLAG 

54 PRIHTTABC OM-19#34+19; G0: UE1G16:REM ERASE 
SS F IMT" Siatepeterepeteiey” : 

66 PRIHTTABS CM-L) #2415; 

Fa BCMO=ACM) : SSAC 

fo C=¥ALCRIGHTE(TI$, 195 

7S IFZ<P11 THEH GOSUB 430 

99 ONCK+L GOSUBLGGS. 1668.1001,1@82,. 1663. 1004, 1085, 1606, 1907. 1003, 100 
180 NEXTM 

264 GOTOLG 

1888 PRINT" 8 NE B0eE: Ae NRE SE SME RETURN 

1061 PRINT" Sa0se Re IE IE WE NE Ee RADAR" PETURH 

1HG2 PRINT "Seg Deee eee ae" | RETURH 

1803 PRINT" Sapa Pees ICE ITE IE SOE SHE AEPE CRETE + 

1004 PRINT" eee AMIS OE AE AE: SEE" RETURH 

1005 PRINT" Skee UE PED REe Maas WE IE RETLIPN 

1946 PRINT" Seé2 URE MOE Mee ERE: SE ARES RETURN 

{B67 PRINT" Zee WE ME MT Paes Dee IE IE So: PE TUR 
LBAE F RINT " Beet BOR OE: aes Ue: OTe: SE RETR 

1045 PRIMT "22a Wee: G0Re: NRE WDee ACES: “YT Tae a es aE": RETURN 
1816 FORI=1T07:PRIHT" SNRBRIN: NEXT RETURH 

SH@6 REM CLOCK SET ROUTINE 

SO1@ PRINT" TEM CLOCK FOR VIC-2a 

2426 PRINT" MITHE TIME IS DISPLAYED" 

SA26 PRINT"AND ENTERED” 

SH35 PRINT"AS A SIM-DIGIT HUMBER” 

S@36 PRINT"IF THE TIME IS ALREADY” 

S844 FRINT"SET. THEH ENTER RETUPRH"; 

Se45 PRINT" SIRBENHTER TIME" 

2858 INPUT WN 

34355 IFN=@THE HG0TOSa7@ 


2436 IFNCLGQGGRTHENTIS="A"+RIGHTECSTRESINTONG 53 
SH68 IFN>=1Q8GQ4THENTISSRIGHTSCSTRECINTOND 9.6) 
2878 RETURH 

4008 REM CLOCK 

4601 POKER627S. 15 

$mg2 REM FOR L=iToig 

40@3 POKES687S . 208 

4439 POKESHR 74. o 

4660 REM HEATL 

4074 PORESES73. a 

4450 RETURH 
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Caution 
least 8k of RAM. 


Bird attack 


8K RAM 


BIRD ATTACK 


In this 


For the next three games you need at 


carry as 
tub as 


game you are a water-carrier. You try to 
many liters of water from a spring to a 
possible, but watch out for birds dropping 


little bombs. The player can be controlled by key ', 


' for left and key '.' for right. 


POKESES72, 
PRINT "72" 
FRIHNT'FLEASE WAIT!" 

REM danerccE EH 
REM # + 


= 
ee) 


iO AN 


es 
= 


9 DATAG!Y. 34.159, 38.18.17 


REM* BIRD ATTACK = & 
REM * 
REM# + 
RE Mana ee CR Ok dcr ak 
REM #LOAL CHARACTER GENERATOR 

POKES1, 255 POKES2. 19° POKESS. 255: POKES, 19° CLR 
PRINT" SUINMOCOMTROL WITH “<°<LEFT? AND “> cRIGHT? 
FORI=17C1a24 

POKES 1 204+1. PEEK (S2 76841 3 

HEMT 

FOR ISaT C199 

REATIA 

POKES 144+1.4 

HEXT 

POKEDGG69, 253: POREISS66, PEEK (S686690R128 


| REM *BIRD* 


aA DATAIZ2. 193,243,255, 255,243,199, 128 
DATAZSS. 285, 255,255. 255, 255, 255.255 
DATALZ9, 238, 248, 208, 248.229.194.123 
DATAGS. 56,128. 124,124,126, 126. 126 
DATALZ6. 126, 126,124,124, 128, 56,48 


REM #HWATER CARRIER 
TATA 2.38.59, 62.29, 38,12. 21 


as 49 
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136 DATAI2e.64,.48,16,.56,.56, 56,56 

268 DATAS1,3@.30.36.14,.12.12.14 

218 DATASS., 120,226, 124,60,120,48.128 
220 DATAZS2,122,121,.120,.86,136.132,140 
238 DATAS1,16.%56,. 76, 56,356.80, 

240 DATAZ4#S. 126,120,.120,.112,.48,48,112 
258 REM #SPRING* 

260 DATAZ2Z1.221,.8,247,247,0,187.187 
erQ@ REM *BULLET* 

230 DATAS. 8,.2.8,.8,8,.8,8 

296 REM #*TUBe 


320A DATALSS. 255 0.255, 255.8, 255, 255 


314 FORI=S28TO1022 :READA : POKELL ASHER T  POKEL@a@a. a 

326 PRINTS" (FORT =28S4aTO38983 : POKEL. 6: HEXT: POKE1@04,0:FOKE100@1,1& 
330 FOKES160,1398:°FOKES159, 1359 POKEG13&, 137 

358 REM *DEARD#® 

260 TATAGLE.@,15.143.295, 255,15 

are TATA. @. 4, 174,25 11,255 ,2°55,196 

38Q DATAG,8,28,20,28,28,26.6 


290 REM *GROUMD* 


295 DATAS4, 285, 255.255. 255, 255,255, 255 


pee rere ee rn a 
406 FEM €TREE* 


405 DATAG,@.224,248, 255,255. 255, 255 

41@ DATAG.@,.8,.8.192,192.192, 240 

415 DATRZ4G, 252, 254 285. 255, 255, 255, 255 
420 DATAZSS. 255.255. 254.248. 240,240, 128 
425 DATALZO.126.120.128 


oe ae 126.126 
450 FORT=3851ATOSS839: POKEL.4:-NEXT: FORT =284AeaToOsesag  POKEL. 7 oMEXT 
465 POKES IG4,. 152: POKESI 42,152 (POKESL 28, 129 (POKESe9S, 129: aan Wre. 148 
455 FPORES@P?. 144: POKESaS9, 15a: POKESIS1.4154 

467 PORE SSae¢4, a: POK 88K pe A POKES SR46, SPOKE SSE41, 5 (POKESSE18., &  PORESSS19,5 
465 PORESSE?P IG, 5 POKESe?S?, & 
47 FORITRSLE4 TOSI SS (POKELL 147 POKEL+307°20. 5° NEXT 

SA FORE? TSS. 81 POKER PS4,66 POKEPP SES. Pa PORE PP OS. PPO POKES SAL SP POKER Pas, AP 
fs ae POKEP TIS. PP POKEP FER, 66° POKER PSL. 78 

490 REM #SFPRIHG# 
"HE FOKESLAES, 141° FPOKESL44, 141  POKESSSEAS, 2: POKEaSE4, 2 

S18 REM # TLE 
Sel POKEGIG2. 145 FPORESSSSS. 4d BMRAiGi BRET oa 

GAR AR= THT CRMDG Leia 
SLA ASABE S+7 78S 
TAG FORT=2TO22 

72 POKEAS+1 1-3. 32° POKERK+ 1428, 32: POKER + 1-24 (GOSUES AAG 

Tae POKEAK+I-2. 12% 

r4a@ POREAM+ I Wt. 12° 
Foe POKERA+I. (ag 
TSE ONZKOOTOAP Be 

Tre POREAM+ I -23, 131° 2K. 607TO8e8a 
Tao POKEAK+ 421, 052: 2¢2 


TSA SYSCRSe  GOSWBEAAa 

PA5 PRINT’ Sa". PEER CLO@45. "LITERS" 

BOG HEE T 

BiG POKEAM+e2. 32° POKEAR+21. 32° POKEAM+20, 32: POKER +43. 32: GOTO6EG 

1936 REM SMASCHINE-LANGUAGE® 

2G DATAL C3. 232.3,201,8, 268,189,165. 197,201, 37. 240,84, 201.29, pF Li l?4 233. 5,2 
at 

2Qi@ DATAL3S4. 234.234, 234, 224,39,234,234. 240.59, 172,294.3,.192,1,240,14,169, 198.157 
2628 DATASHG, 31.169.1,141. 234.3. 76.123,3,2354.169.140,157,2606.31,169,.6,141,234,23, 


e620 DATAL6ES, 137,157,184, 31.232.169,32,157.194.51,157. 206, 31,282.202,.169,149,157 
LAG 


2Q46 DATASL, 142.233. 3,234.96,2394,169,1,141,235, 3.96, 234.174, 293.5, 292. 234, 234,25 
4 ed 

eAS@ DATAZS4.19, 294,294. 240, 67,172.234.5.192.1,240,14,169, 184,157, 266, 31,169,101 
41 

SOck DATARAS4, 3,76, 203.3. 894.169.136.157. 206, 21,169.0.141.2394,.3,294,169,195, 157.1 
me 

2670 TATASL. 262.169. 32,157,184. 31,157, 206,31. 292, 234.169.185.157. 207, 31,142,233. 
SOR QATH234. 96. 294.234, 234. 254,18. 0.8.0. 2354, 173,235.35, 201,1,208,9, 235, 236,.5,169 
8 

SA90 DATALSL. 295, 3.234. 96 

499k FEM #UROPP INGe 

SHG POKEBBM-22. 32 
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SOS IFALK=1THEHS 160 
SALA AAM=INTORMIMG Led): [PARED 2 THEMRETURH 
SOSH ALM=1: BBMEAN+ 142 1 
S1iGQ LPPEEKCBBN+22 9 > O2 THEM FPEEK « BBE+22 9141 THEMG@a 
S103 IP RRRDSL42THEHALN=8: POKESGS 75, @: RETURY 
S1LGS T= (S142-BENI AS41268 POKESOSTS, TT POKEBBS. 142: BBM=REN+22: RETUPH 
Soo REM ITA 
GAG PPR=PEEK C1GG1 9 POKERL424+PPE. 145 POKES 41 +PPE, lod POKER L4S+P PE, 146 
GALS POKESL204FPR, $2: POKESIZIFPRR. 32 
Gath POKES6E7S. a: FORT =255 701 2eSTEP-s  POKES6S7 7, 1 NEXT POKESES7 7, 
GOS PRINT SMAGAIM Ce“No" 
6A4e GETAS: IFAS=""THENGG4A 
BOSC TPAR&=" 9" THENRUNSSE 
CASS LPA="H" THENeaEO 
GOTOECe 
PRIHT!S EMD 


tees 
peed 


El 


tease 


rad bat 


ERIE ES 


Motodrom 


8K RAM 


MOTODROM 


In this game you drive a car on a famous race track. 
Your car can be controlled by a joystick. 

At the beginning you have to enter the number of 
drivers and their names, aS well as the speed each 
driver dares to drive. 

Each crash causes a delay, too many crashes cause a 
disqualification. The driver with the best time 
wins. 


oe 


tis 


mi 


Se oe | 5 
| PaPes 
a i a 
“ Fo ae: fet oof me 


ds £5) 


“7 LA 


my sen, 806 
m4 fae reed fs tenes me real 
one beecs Foous 
ooo oe one, 
v4 ft woes PN cous a! 1 
ere bes. 


oo, pee 
cd 1 a 
oo Ie" 
| ary ton 


mime LS RU 


RETLIPH 
RET LIP 


soe Cadel 
LJ 
| | “| | | 
Efe 
5 ee 


wet RE TIPE 


RE TIP 
SRE TIP 
: PES T LIFE 


3: RETURH 


DPE TIRE 
SRE TLeH 
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ee 2824+) °70F SePTHEHZ=8:-G0TO 4ae 

Zo RETUPH 

Be REM 

Be FOR K=1 TO 20@4+U12 °° POKES&S77. 210° POKER +307 20. 2° POKE FLL? e: PORE 22 
SB4 PORE Pode PORESGSP?. @: HEMT kK POKEP +4072, 5: POKE Fh. Ba Pes 


ae RETURH 


Ja 
@ 


FET 

FOKESES7 6.255 POKE S, 4, =P CO POKES+ 30720. 2° FOKE S. 81° POKE SSeS, a 
RE TUR 

TAF=INT CC TI~To Sees 

PRIMT SS" SPOOR Lo Se Tp eee 

IF TiS SQTHEHGOTOPS 

SYoCGSs 0 (PORES? Led. 22 CaPeER Coo 4 
IFCH4THEHC="  GOTOA? 

IFC=?THEHMC=4 ° GoOTOE?T 

IF CSS THES 1 

Tret: 

FORMS UTOSR : HES T 

BS OH DGOSUB 1.2. 3.4,.5,6,7,8,9 

7A VYePEER CPO TP, oP THE yc 

Yl OW CV-SE0¥ALS GOSUB 2a. Se, 4a 

Pe RPETURH 


"ee, 
i 


my 7 


Pm HM MAL CA h 
W-7h BA wm cA oh 


eo IF TICEQTHEMPRIMT 3 WHERE ARE Yo cm GoTOEeS 

PP IFTIS=PGAMDT I CSA THEME R TMT eg ARE WOW STILL THERE 2 Meo oOoToEe 

rs TFTICS@THEMEe 

PS FORT e128 PORE S6S7S. 1SaQ PRIMT" sees TISGUALTRYETD! "OPO Ted Tiga HES TS 
SA POKESGSP EK. OOP R IAT ii TISHUALIFSED! MYO FORS=1 TOG WEE TIOMEMTIOGOTO444 


MY TRUS THEMES S+ toe oT ORS 

me Lidell GOT Cec 

1A FORTHS28TOSos READE POKEL. AS MEYT 

185 FOR TSO TOLG9S: BEATA ROME. AS HET 

Li@ TATAISS.Q@.135 14. 1S. 145 LES. Lee. 141. aa. ia Ce gm eda task pe Lae 

115 DATAGL. She. Sei, Los tet, aa guts aa ace 14 i LES SS 

128 DATALES. 6.144. 251.5. 254,98, ota, 12e4 a3. 16 ee 

pen DATA. Oh PAG, 4.142.251.4655 ere Dik oudiarel iy ee 

136 DATASSS.142,.251,3,90. e4, 2. 2, ao see dG 

Tae Pete 

131 GOSUPBGBEA 

see G+ 1 

139 PRIM CIMT START POSITION #76": "Rec ue ge 

Co PRIHT'ENTER SPEED CMA Seo": THPUTH 

162 Wd= 

alee FFE 4 

la Peet 

ete PR TAT  SRETTTTOP ETOP T ppt tpt tette 

294 PRIMT! RTPTP TTT TT ttt ppp pp pp: 

eof FRONT t TTTT t's 

aate PRIA! t tT TT sa 

260 PRIAT' tT ttt TT TT t tT" 

fee FRINT' t Tht th ofttt ofttpp ote, 

254 PRIHT' t tot tt is Aa Bl A 

266 PRIHT' t tttt Ti SP 

268 FPRIHT" T TTT TTTTT TG 

er PRIWT! + TTT i it as ne a 

ere PRINT" St Bt Et a Gt ld GS do 

Sed PRINT! Tea ait TTT Tt tet tet tp ep ope 

ete PRIM" + TET TT TT 3 El ams bone 

ert PR THT" + TT Pi i a 

2rr PRIWT' tT tT Tt T'S 

ers FRINT" t TE Sees Te oS 

279 PRIWT!’ + i eM i 5 ae 
t 
T 


2S PRLHT! + TT ya od 
2oLl PRINT" + tttt TTTT T F 
aga PRINT" + Tt? h ee Eile 
293 FRIWT! t TT TTT bs pa 

284 PRINT" tt TTT T ee 

265 FORT=8TI21 POKESSS84+1,5:°POKEQIS4+1. 30° HEXT 
SAG REM 

S14 Pe?946 Tino 

238 T=TI 

348 FOR ‘Y=1 TO 1679: GOSUB SS5:-NExXT Y 

400 REM 

416 PRIHT " Selaiateteratetete py ; 

420 FRIHT’2 FOUMDS IMM "; 

420 PRIHT (SaaS RRR" 

4395 O=IHTCcTiI-T3 “609 
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446 
46 


abt en es “ 
zt ULF Ltt Lit ft 


a ws : 


"t 
Fae | 
i ~J 


ret eo (4 
Oa ALA 
“1A 
a & 
os 
fad od 
ml 8 
Reo Se 
O43 oh 
chal be 
td ps 
ra 
ed a) 
oIcacl 
126 
1210 


lrg 


Lao 
1G 
1316 
1328 
1330 
4A 
1345 
146 
1347" 


ae | 


4 PRIWT" 


PRINMTIHTCSTI-To 6G) "SECOMDS" : 
OCG of) 


| FORT =1TOG@88 : HEX T 


LFO<HGOTOL Se 
BOTOSAA 


J PRIAT COMMS Oo TOD RO pe 
3 GOTOLZe0e 


FORG= 1 TOH 

PRINT MAME OF DRIVER 
MEST 

POR LT eeiToceeae : G= 
Fees TIP 

Fre TT sd" 

PRIMT SCORE APTER 1ST RUM 
TH FORMULA 41 


# "GO: THRPUTR S$ ¢ 3% 


4 


‘eee 


2: G2 


ma" 
Fee TT Teg" 
PRINT DRT VERY  " 
Fk D1 TOH 

TF TIS=S8THEMO¢ Toe Goo 

PRIMTRE CLs. Octo" 

ie 

re DT" stetetey" 

THRUT AGAIM "SAF 

IF AS= "9" THEMHG=28° GOTO1S2 

IF AS="H" THEMED 

FRIAT T's -GOTOSES 

PRINT" SIIELCOME TO THE 1ST RUM IK” 
PRIMT FORMULA 1 oT MOHTE CARLO 
PRIHTOPR IMT! Sai RESS Arle KEY a 

GETOS > TFGS=" "THEM L256 

Pe DRT" 

PRIMT M@HERE IS THE ROUTE. “YOU HAVE 
ee THROUGH 2 THO Ties" 


SE COM TS wel" 


Fre IMT" 
PRINT" 


PRINT’ Z1 ww if! 
PRINT" § ! a, 


PRINT" | 
PRIMT! emma 
PRINT OPRIHT PRESS AMY KEY 
GETGE: IFG$=""THEMIA46 

PRINT OC" 


TOM 
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1A PR TT SWATCH OUT FOR THE DAMGERCUS FARTS" 
MOP RIMT MAREE D cba." 

G@ PRINT ARE WO REA” 

GE TCE TR Gee! THE RIGII TO Se 

| TR Ge THEM OCT debits 

“ea GOTO LSS 

AM FR IMTS GOTO ee 

470 PRIMTVENTER HUMBER CF TRIMERS "> TMPUTH 

LEW Cry Cres eet 


_ 3 

“Te oF 
Lal 
=“. 

3 

= 


2 

at 

Se a 
“38 LEE bo 


ra 
ure 


a ee ne ee 
pigt 
DB 
i_— 


Fill the aisles 


8K RAM 


FILL THE AISLES 


In this game you fill aisles by moving around your 
player. A second player (controlled by the 
computer) moves around also and clears the aisles. 
Try to fill as many aisles as possible and avoid 
getting hit by the other player. You will get a 
time-bonus for a good score. 


tf * 
i, 


a, 
abe 


DIMsC 25 


1 DIMES¢ ee AMEeC Ld 

= PORES6GrS. 15 

ao PRL ara aie 33° PRIM UEBUDULLCULL | 1 1h mame THE ALS LE" 
& FORTHLTOSbae: NEST “POKES or ae 


1G PRINT'SOVSTICK HOBRED UP >" 
11 GETAS: IFAS=""THEHL1 

12 TFAS="9" THENPORE S28, 1: G0 Toe 
13 TFAS="H"THEMPOKESS8. & GOTO 
id PRINT"Y OR H PLEASE ©". 07D Ia 
38 FORI“82870924 


seo READA PORET.ACHEST 

44 DATALS 2. 162.3281, 1.285. 5.76. 76, 3.165. 19.141. 165. 3. 56 

45 DATHLGS. a, 141.19 145.169.127.141 4 49.1% S.52, 145. 41,425,261 
28 DATAR. SHS. 6. LAS. SY. t4,. 16s. 3. a6 

oo DATALIBS. SSS. di. sd. ida ies. iv ide 4b. SJ Sei Beeb ibs. ie i4i. f63, 5.56 
68 DATAIPS.17,1495. 41.16. 201.8. 208.686.169.259. 141. 165.5. 96 

65 DATAIPS.17. 145. 41.4, 261.8. 200 6. TBS. 45.241. 185.5, 58 

YR DATAIBS. ie. i4i. ies. so. 36 

SA DGOSUEBS Rane 

eS BOs 

38 PRINT UTI" 

18@ PRINT OSS ” 

Ha FORT=1Toe 

208 PRINT Gis @ ao" 

ero PRINT Oa @ & a9 oe ea Bs 2 oe 

276 PRINTS #2 MS RG Bo 9G Me mR aN 


aia MEST 


230 PF 
S88 F 


4 
me i i 


meet ee 1 fe a 
PON NY ON 
Ure Cea Sy ge RE fa 


ee, ee 
al Va f 


Cat fee ee ee 
Ac 


a, 
r 


~., J 
Jf Bs Be ho oy BP 
- Ge 

ci 


26146 


1888 


fis 
— 
ior me 


3 
— 
be ee ee ee I 


mit 
1m 


ie 
is! 


A Ty 


al 


LAB Ohi hae NAD to 
mit 


Ex 
& 
Lan) 
i) 

me i 


oe 5) 5 a 
SAA 
28618 
Eeret 
TAO4 9 
2HGSE 
nl Sa 4 bo 
SHR 
SAAS 


4148 
241 Se 
TALE8 
oaire 


4 BO=BO+1:> TF BO=1 THENPRINT Siti 
A PRINT" CWQUE: 


A PRINT AMD 
P PRINT: PRINT: PRINT SPRESS AT 
2 GETAS: IFAF=""THENSe1 as 
SPRL ca. 


A PRINT PROPER KEY 


RINT as # mT 


RIT ? 
“AS=oe 

‘=F 

AME Pres 

SP=ei33 

NAB 9=°22'KCST INL NCLPISEE NCBI = 


Tl¢= "OEE" 
LO=AH 
RAH=AN+CR : IFPEER CAH? =1687THENAN=AH-CR GOTO1 eae 
IFSFP=AMTHEHSE 1 ae 
oR= INTO SO#RHDC Lao: 
FOREARM. 42° FPORELC. 
PsP : SEC) RFEEK (32 


IFER=8THEMAN-AN-CR: GOTOLG61 8 
Hp SPSSP+N CRD: 
POKESP+30720. 5: POKESF, 
IFPS<>SPTHENPORESES 7S. 2 
IFSP=ANTHEN2E 1 

VE=INTORS 
GOT OL az 


B1 
a5) 


BO PORERPS+So Poe. & POREPS . 


4 REM CONTROL BY COMPLTER 


IF SP=ANTHENSE 1 ae 
RAST Sek te 1 oo 
IFRA=8THEMCR=1 
IFRA=1 THENCR=— 


MH IFRA=2THENCR=22 


IF RA=3THENCR=-22 
GOTCLASA 


4 FORT=170S8e8: HEX T 


IF BO=1 THEHPR INT "Se GAME OVER 2 
POREAM. 32: POKES. 32 
FORFHPPesToa1 so 
IFFEER CP 2 =4e7THEMPUSPUF+ 1 PORE SSS, 
IFPEER CP o=467HEMPRIMT Sta" OPO Oo POREP. Se 
HET  GOTOSE FT ae 

FORT=1705 


PORESES7?. 2H: PORESP 31 


a FOR J=1 7058: HEXTI 


POR ESES? 7. A: POKES. 5 

FOR I=17TOSO:> HES TI: Nex pep areniees 
Schlie 
FORT=1 70508: GETS: WERT 

SCORE="FU 

THRUT POUR MAME" He 

EFC, LT s=STRECPUD+" PURE TES" +H 

EUR TU1e: EFC LT 2=HHECT oO HERT 

PRINT") 
PRIWT 
FORT=17T018 
IF IZ>1@THEMPRIHT" ". 
PRIWTI' PLACE. HNE* To WERT 
PRIHT" AeWEM GAME 2 PRESS 
GE TAF: IFR#="""" THEN Se 
IF Aco "HW" THEN See Se 

EMT 

PRIKMT' CI RULES 
GETA#: IFAS=""THENSbe le 
IFAS2> “Yt THENRE TUR 
FRINT'S RULES 
PRIHT' STR TO FILL THE AISLES 
FRIWT" “fil WITH ‘TOUR 
PRIHT PLAYER 

PRIWT' CONTROL SUR FLAYER 
FRIHT Som FOR UP. Som FOR 
SM FOR LEFT 


MMH IGH SCORE 


y OR td 


ae 


WITH THE KES 
RIGHT. SAM FOR DOW 


KEY 1m 


PRINT'YOUR PLAYER ONLY MOVES. IF THE 

Pe PResoell 

PRIHT"EACH SQUARE THAT ‘Oli FASS WILL 

PRIHT"BE MARKED BY A ODOT. 

PRINT" THE COMPUTER ALSO MOVES A 

PRINT"FIGUR “#°. THIS FIGUR DELETES THOSE DOTS 
PRIMT'PLACED BY OU, 


Te. LSs+THTOPUA2. 30° FORI=1 T7026 : Hes 


IFFPEERK © SPo2=160QTHENSP=SF-—e CRD 
46 PORK ES6S75, 0 


-(TIMSR20° PRINT Sa VEU TEYS<<8THENGOTOZaaR 


Vow TNTEPLLE) GOTO 
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Pe PRIHTOPRINT PRINT" SPRESS AMY RE 
BETAS: IFAF="" THESE] 72 

PRINT C7" 

PRINT" COLLTSIOHS WITH THE aa Re 
FRIHT "OF THE COMPUTER PTHI 

PRIHT' THE GAME. 

PRIMT'APTER Se SECOWMDS THE FIRST ROUND 
PRIHT"IS OVER AND THE COMPUTER COUHMTS 


rr CP mp my “d 


ro + 
ere eee 
mm a nd NE ed 


CACHAN OA on a 


Is Oe Oe Oe OO Oe OO Oe pat 
raul 


— 
fea 
mi 


44 RETURH 


A 
A 
re 
A 
re 
re) 
AOE 
Ho] 
Mel PRIWT' THE DCTS FLACED BY SOUL FOR EVER 
SHS FRIAT’ La POINTS ‘ou SET 
SH225 FRINMT"AM ADDIT DOWAL 
SHSS4H FRTHT"? SECOND PLAYTIME, 
SHS FPRIWT" HRESS HAS KE 
SH268 GETAF: IFRF=""THEHRaSEe 
Sher PRINTS" 
SiBie PRINT" aelaialateleree e Aris 
S1iB28 FORT=17TOLa6e: HEAT 
SiBsk PRIM" STEAD 
Side FOR THALTOMOe: NEXT 
S1845 PRINT 
SIBSH FORTHALTOLS PRINT Roo" FOR ISL TOSe- HESTICP RIT RRS" FOR T=1TOSa@ HEE TIME 
I 


SOAR OL=TMTece 


fi 
BBS TFGL= ATHENE 1000 

Shade WS=11-01 

BREESE Che4}= } 

BARE Oat 

BAH CEH S+o 1 

BARS IFES COS Ea eee se 

BAAS TESe ECCS 

BMLae ES: OS Eee me 

BELLI EF te =TsE 

BBLSA O=8-01 

BAL Se TFOSD=1THENHe eae 

Beide Ce4=f44+) 

BALE TF O4+>osTHEHeee ie 

BALE GOTOeEeRE 

Ble FORT=1TOLe: HHé¢ To=E$c I> HEST  RETURH 


Simple monitor 


3.5k RAM 


SIMPLE MONITOR PROGRAM FOR VIC=20 


The following program is a simple machine language 
monitor for your VIC-20. The program works on the 
Standard version without memory expansion and gives 
you the following options: 
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Change memory location 

Dump memory location 

Start of a machine-language program 
Save a machine-language program 
Read a machine-language program 


DAMmosa oO 
hou ued 


This very simple monitor program is meant for the 
first contact with machine-language and allows you 
to do little expeditions in the RAM/ROM area. 

The memory map of the VIC-20 (standard version) 
locks like the following: 


(See page 34) 


Fran 0000 hex to O03FFF are the BASIC-vectors and 
addresses that the VIC-20 internally needs. 0400 hex 
to OFFF is empty. (On the PET and CBM the BASIC area 
Starts at 0400 hex). 


In the VIC-20 there are about 3.5k of RAM, starting 
at 1000 hex, available for the user. The upper part 


of the 4K block is used as the screen memory 
(LEOO-1LFFF). 


After you have loaded the program there are about 
750 bytes left. With the C-command you can look into 
memory locations and change the contents. 

After you have entered the start address you can 
increase the address by pressing the space-bar or 
lower the address by pressing the key with the 
Uup-arrow. 


It is important to enter all addresses four-digit in 
hex. To leave the C-comnmand press RETURN. 

When you change memory locations you have to be 
careful not to change the BASIC program or the 
screen memory. You can use the area around 1D00. 

The program also allows you to save and load 
machine-language programs. To save a program you have 
to enter the start address and the end address and 
the name. 
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iS) > iy CD > cae es wep ite 


Qe ii 64D 6p oo mJ) Oo) ee i Pe 
as ae iE TL eS 


O70 0 0 CoO Mo Wo oo on OO no oO OO on OY 


PRIMT OC 

PRIMT'C=CHANHGE MEMORY LOCAT IO" 

PRINT "M=DUMP MEMORY LOCATION" 
PRINT"G=START MACHINE LANGUAGE PROGRAM" 
PRIHT"S=SAVE MACHINE LANGUAGE FROGRAM" 
PRIHT"R=READ MACHINE LANGUAGE FROGRAM" 
FRINT"RETURH=RETURH TO BASIC 


PRINT 
FRIHT'EMTER OPT TOM" 

AS5 PRINT 

36 PRINT # "; 

116 GET C$:1F C#="" GUTO 3118 

124 FPRINTCS 

sh TF C$="C" GOTO 34ae 
Sida ITF C#="M" GOTO sree 
S158 TF C#="6" GOTO 9388 
B17@ IF C$="S" GOTO 97a 
S136 IF C¢="R" GOTO 3988 
e196 IF ASCeCSs=13 THEN END 
S288 PRINT" COMMAND = LNEMOWH" 
8218 PRINT 
S224 PRINT 
F238 GOTO 3896 
e4aa REM 
8416 PRINT'START ADDRESS" 
e4e8 INPUT HE“4$ 
e434 GOSUBR Saag 


844 S=DEC4+1 

3450 PRINT 

2460 S=S-1 8164 dec. 
S478 GOSUB 9146 Screen- 1F FF 
S484 PRINT" "; memory 

8490 S@=PEEKS: 7680 dec. 
S500 H=3:GOSUR 3158 suailsble 1£00 
8510 PRINT" - "; 

S500 DEC2=A ae 1000 
8530 FOR I=? TO 1 STEP-1 OFFF 
8540 GET C$: IF C#="" GOTO a54a 

ss5a IF C$="t" GOTO 8450 

s56a IF C#=" " GOTO a64a 0400 H 
S570 TEMP=ASCCCSS O3FBH 
a5 IF TEMP=13 GOTO 3095 

2590 PRIHTCS; 0000 H 
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AOQOQCIAADAHWADAA AWA dA Ss 


tL 


“JONI aD TA TD MIS oS oS oS oO oH OHH 
VJHHaOnbh PWM K VBQ nH Ah WwW hae BD 


mom cM Co Om MOO OM Mh ODM ww wo 
> 


9080 
9818 
98248 
9830 


F=48:IF TEMP>58 THEN F=S5 
DECL=DEC2]+ C TEMP-F eT He I eI #] 
HEXT I 

POKE $.DEC2 

S=5+1 

PRINT 

GOTO 8476 

REM 

PRINT 

PRIHT"START ADDRESS": 
IMPUT HEX4¢ 

GOSUB 9646 

L=DEC4 

PRINT 

PRINT"END ADDRESS": 
IHPUT HEK4? 

PRINT 

GOSUR 9066 

H=DEC4 

D=H-L 

FOR I=1 TO D STEP 8 


S@=PEEK CS-1+J> 
H=3:GOSUB 9158 


A PRIHT" "; 


HEXT J 
PRIHT" 


A MEAT I 


GOTO 8895 

REM 

DEC4=8 - MULT=4496 

FOR I=1 10 4 
TEMP=ASCCMIDSCHEM4$. 1.199 
F=49:1F TEMP>SS THEN F253 
DEC4=DEC4+¢ TEMP-F O#MULT 
MULT=MULT “16 

NEXT J 

RETURH 

REM 

H=4 
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4420 SCLI=INTCS74a96) 

34 SCSSSINTCCS-S01 ed A9F 7O8 
BA $84=1S-S¢15#4a969-SC 2) #256 
A SCSssIHT¢(Sa/16) 

M16 Sé4 HC Sa-Sc see 
9174 FOR K=H To 4 

9180 Fede: IF S¢ko29 THEH F=iS 
91940 FRINHTCHRECSCKI+F); 
9208 NEXT K 

9718 RETURH 

REM 

FRIHT 

FRINTVSTART ADDRESS": 
INPUT HEH4$ 

GOSUE 946e 

Soc TEC» 

BOATO #495 

REM 

PRINT 

PRIHT"START ADDRESS": 
INPUT HEK44 

GOSUB sHee 

L=TEtd 

PRINT 

PRIHT'END ADDRESS": 
INPUT HER4¢ 

GOSUR 9Hee 

H=DEr4 

D=H-L 

PRINT 
PSe-{:FTie-1:FC=191 
PRINT "FILEHAME” | 
IHPUT FE 
CPEML.1,1,F% 
JSLEHCSTRECT) 3 
PS=FS+J 

PRIHT#1.0D 

FOR J=6 TO D 
I=PEEKCL+I3 
PRIHT#1.I 
K=LEMCSTRECT 23 

FE=THTC~cFS+k 5 /F C3 
= IF FESFD GOTO ga49 


6) 


5 a) 
uJ 


“oA SD DA NS ng Ot) 


BDIiP PO DD tp MWg Hub BoP MH Oh wg MD wy 


Sn ie’ Be Ba’ Sta” BN BE BN BO BN | 


Mie NSO mW se Rw hes DO DUD DM cha BD AM |S w 


8D 0 0 0 80 up NO ao 8 8 oo 80 8D 0 8 8b 8 8D 8p 4 8b 4 po lo Wo A 


M1) OO 3 £0 1a OD 


Bee RG 1 


(fh 


MUG wo 8 uo Lo ud aad 


PIN Oo om oh Oe OD oh OD OD 


Wh DMO Maw Oon~a maw EE he 


Olio to wot 
ae 


mo ON MD P| 480 oS oo) 0 a 


LO 8D 8 WD Uo No 8 ob Ub € 


HOU oD LD WO 8 8 WU 8D Wo DD 8 Ud 8 a a uD 


JSHMnnBW MY OO dsAOMcaAaD ds: 


Oo WO 8D 8 Wo NO 8D 8p lO ND to 
Wo WO WO 9 SD 8D OO AP os OT OE 


POKE SO4]i. 53 
T=T] 

IFeTI-TI<5 GOTO 9846 
POKE 9411.64 

Fo=~1 

FS=FSt+k 

HERT J 

CLOSE 1 

PRINT 

PRINT" SAVED" 

GOTO 8a35 

REM 

PRINT 
PRIHT"FILEMAME" | 
IHPLUT FE 

PRINT 

PRIMT"REWIMD AND PRESS ANY KEY" 
GET Af: IF Ag=""THEH S92n 
OPEL. 1, @,F£ 
LHPUT#1.0 

PRINT? OT" 

PRIHT"START ADDRESS" : 
IHPUT HEX4¢ 

GOSUE 9AMA 

PRINT 

L=DEC4 

FOR J=4@ TO 2 
IHPUTH# 1 os 

PRINT RK" | 

POKE L+I.4 

HEXT I 

CLOSE 1 

PRIHT:PRIHT 
PRIHT"ENHD OF FILE" 
GOTOSaSS 
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Programming in 


machine-language 


PROGRAMMING IN MACHINE-LANGUAGE 


In this chapter we will show you how to program in 
machine language with your VIC-20. 

If you do I/O programming, you will find out that 
for some applications BASIC is too slow and you have 
to use a machine language routine. 

We will show you the basics here and try to 
stimulate your interest. 


The VIC-20 works with a 6502 microprocessor. The 
following tables show you all the cammands of that 
microprocessor. To enter the canmmands you can _ use 
the machine language monitor previously used. 


Here iS an example: 


Enter the monitor program mentioned above and test 
1t. Now enter PRINT FRE(0). You should get 986 bytes 
free. This means we can use about two pages = 510 


bytes for our experiments. The memory map now looks 
as follows: 


(4330 bytes free on a 8K VIC) 
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1E00 = 7680 dec. 


Available for 
machine language 


programs, 2 Pages 


variables 


BASIC monitor 


1K RAM 


Caution: If you use a 3k memory expansion between 
0400 and OFFF hex or an expansion above 2000 hex the 
memory map looks different ! 


TOP > BASIC-program 


1000 
FFF 


0400 Hex 


0000 


By ?PEEK(55) and ?PEEK(56) we get the too of memory. 


(55) = O dec = O00 hex 
(56) 30 dec = ILE hex 


Since the first number is the lower byte, and the 
second number is the higher byte of the address, we 
get 1EOO hex or 7680 dec for top of memory. 


To protect the upper portion from BASIC, in order to 
place a machine language program there, we have 
to change the boundary by two POKE 
commands in locations 55 and 56. 

We will redefine the too of BASIC to 1C00 = 7168 dec 
by POKE 55,0 and POKE 56,28. We then will have 425 
bytes left for BASIC variables and 2 pages = 510 
bytes for our machine language program. 
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Commands 


compare- 


branch- 
SHIFT- 


Status- 


Register 
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xbpp<x x rpezZz2z2e 
a ne 2 2 ee a 
bp<x=E25<& >} 


S+1>S,Ms7A 
A >Ms, S—1-*S 
S+1>S,Ms > P 
P-+Ms,S—1>S 
A+M+C > A 
A-M-C7>A 
M+1>M 
M—1—>M 
X+1>X 
X-1>X 
Y+1+Y 
Y-17Y 


BRANCH ON C=0 
BRANCH ON C=1 
BRANCH ON Z=1 
BRANCH ON Z=0 


BRANCH ON N=1] 
BRANCH ON N=0' 


BRANCH ON V=0 
BRANCH ON V=1 


NO OPER 
RETURN F. SUB 
RETURN F. INT 
BREAK 


Adressing modes 


Table | 


x <x xi 2 


| 


| 


xx «K x 


x x | 


condition 


codes 


x KKK | 


x x | 


Now we enter the following program using the cammand 
C of the machine language monitor: 


ORG $1C10 
1ci0: A900 START LDA #S00 
1012: A209 LDX #S09 
1C14: 9Y9DFF1C LOOP STA S1CFF,X 
1C1l7: CA DEX 
1C18: 10FA BPL LOOP 
1C1lA: 60 RTS 


After you have entered the program, look at some 
locations fram ICFF. They should contain FF. Our 
machine language program will write nulls to these 
locations. 


Start the program using the canmand GICl0. The 
cammand RTS at location I1ClA returns us to our 
previous location.Now enter C and the address 1CFF. 
Press the space bar several times and you will see 
that locations 1CFF to 1D08 now contain 00. 


Now that you have written and tested your first 
machine language program let's have a closer look at 
1t. First we loaded the accumulator with 00: LDA #0. 
Then we loaded the X-register with 09: LDX #$09.Next 
we put the nulls fram the accumulator to ICFF + 9 = 
1p08: STA SI1CFF,X. This canmand'- uses indexed 
addressing, which means that the effective address 
1s an absolute address (1CFF), plus the contents of 
an index register (9). 


The next canmand decrements the X-register: DEX. 
This means that the next effective address is 1D07. 
Now the X-register is decremented to zero. This way 
the last effective address is I1CFF+0=l1CFF. The 
X-register is then decremented again and contains FF 
which is negative and thus the BPL-command (branch 
if plus) is no longer executed. 


The value next to the BPL-command defines. the 
relative distace to jump (backwards or forwards). In 
Our example the program should branch backwards: 
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F9 
FA 
FB 
FC 
FD 
FE 
FF = Jump back one location 


Jump back six locations 


Fran 1ClA to 1C1l4 it is six locations backwards, so 
we have to place the value FA behind _ the 
BPL-canmand. 

The RTS (return fran subroutine) brings us' back to 
BASIC. 


Here are two suggestions: 

1.) Change the program so that it writes 44 in 
locations 1C10 to 1D08. 

2.) Change the program so that it writes 1 to 
locations which belong to the 3.5K working memory of 
the VIC-20 (1000-1BFF). 


As you already know you have to protect your machine 
language program fram being overwritten from BASIC. 
Location 56 contains an address that defines’ the 
memory available. Check with ?PEEK (56). You will 
get the number 28, which means that the memory of 
your VIC-20 ends at page 28. 28 pages with 256 
locations in each is 7168 words minus the empty area 
fran 0400 to OFFF and minus the RAM area used by the 
system makes 3581 bytes of free RAM. 

If you turn on your VIC-20 it shows you a lower 
value. The reason for this is that a small part of 
the RAM has been reserved for saving intermediate 
values. 


Caution! If you save the machine language program on 
cassette with the monitor—program and want to load 
it later you have to define the top of memory with 
POKE 56,28. The value 28 remains at location 56 


until you turn the camputer off or you pcke another 
value. 
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MACHINE — LANGUAGE ROUTINES IN A BASIC PROGRAM 


PAGE 0 (Zero Page) 


25 
PAGE 1 
256 
25/7 
PAGE 1 
511 
PAGE 32 
ES) 5 aE aE EIT, 
VG fe eee 
aes rere a eR ATE 
8191 ( 


ee 


In this chapter we will show you aé BASIC program 


that translates a machine-language program 


into 


DATA-statements. The program is called POKER MAKER. 

POKER MAKER generates a program that pokes decimal 
values into memory. You have to enter start and end 
address. 
Caution! Due to self destruction, you must save the 
program prior to program implimentation. 


m 


peo 
oD 


ACH CAL A CH oh 
Gm 


LL 
_— 
—s 


PRIHT:PRIMT'CITHIS PROGRAM GENERATES” 
PRINT"A BASIC PROGRAM 
REM THIS PROGRAM GENERATES A MACHINE 


REM LANGURGE PROGRAM IN DATA STATEMENTS 


REM WHICH CAM BE POKED IN LATER 

REM MARE SURE THAT THERE IS A PROGRAM 
REM IM RAM. 

INPUT "START ADDRESS DEC": L1 
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IMFUT "EMD ADDRESS DEC": Le 

TF Levsli THEM 5@@ 

PRI T "Toate" 

PRIHT'SAFORT=S":L i. "TO" Las" READDC:POKEI. DC HEXTI" 
PRINT" Js", Ld: “ ce a i eee t SSOTOS2S 

FOKE 193, 18°FGR N=O TO S°PORE 831+H.13°HEAT 4 
PRINTS" EHD 

ML=L1  LHR2e 

PRIM T Tal ' 

PRINT LH: "DATA": 

Ti=PEEK CML  D1ISsfTRe D1} 
QDCE=RIGHTS (DLE. LEH DLS 5-12 

FRINT DC; ‘ML=ML+1 

IF POSt@o¢18 THEM S44 


Ue ee ee ee ee ee 


BH Bos 09 09 0 OO RG Ph Po fa Re ee ee 
Po modmy hm mm Ge hm om 


S42 PRINT PRIMT LH] LAG +2°MLe" ML UO Lae" les" GOTO S3e@": GoTo B45 
S44 0F Musto THEM PRINT: PRINT" GOTOSS4" GoTo 54a 

S46 PRIWT CHREC dd GOTO S34 

Ed2 FRITS 

B50 PORE 138. 1a: FOR H=@ TO S:°POKE 6214+H,13:°HEXT WH 

Seo FRIHT "3 ERD 

S54 [=50a: j= aa ae et 

e568 REM 

ee REM 

Sea PRINT" Tale"  PRIHT I:PRINT J: PRINT K 

Bee PRIWAT Ta", [+6; "Ja", +6." Ka" k+6: "GOTO" 

Sed PRINTS" PORE 136.18: FOR H=@ TO 9: POKE ESt+h L2°NEXT bi 


After POKER MAKER is finished, you get an error 
message which you can ignore. Enter LIST and the 
generated program appears. The following program was 
created by POKER MAKER. 


e4@ FOR T=7184 TO 71i34:READ DC:POKE I.DC:HEeT I 
22 DATH 163,0.162.9 

24 DATA 157,255.28 

26 DATA 262.16, 256 

e8 DATA 96 

287 REM PROGRAM IM DATA STATEMENHTS 


This program pokes the above machine language 
program to memory starting at 7184 dec. 

Before you start this machine language program, you 
have to protect it again with POKE 56,28. 

The above BASIC program can now be saved = on 
cassette. If you need the program later, load it, 
RUN it, and start it with SYS (7184). This cammand 
executes the machine language program and returns to 
BASIC after it is finished. 
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The following short program changes locations 7184 
through 7194 and displays them. 


94°POKE I. 8°NEXT I 
4°PRIMT PEEK CIO: NEXT I 


The locations that are set to zero by our machine 
language program are 1CFF hex (7423 dec) through 
1D08 hex (7432 dec). 


The following program displays these locations: 


SER FOR M=?42 TO P4ee°PRIHNT PEEK CMO HEXT 
35 EMT 
4 FOR N=P4o3 TO P4s2°RPOKE WH. OS5 HET fy 


RUN 300 will display the contents. 
RUN 400 writes in a value (255) in order to check it 
later. 


Lv | 


eH FOR [=71a84 T 4°RERD DC:FOKE I. DC:NEST I 


0 Fl 
22 DATA 169.48 162.9 
24 DATA 157,255.28 
26 DATA 202,16, 258 
eo DATA 36 
29 EMD 
144 FOR T="184 TO 7194:POKE T.i:HEXT I 
eb FOR T="1i4 TO F194°PRINT PEEK CIO: MEXT J 
2H FOR M="d23 TO 7432:PRIMT PFERCM) “NEXT M 
Sa END 
400 FOR H=7423 TO 7432°POKE N.SS5°MEXT } 
Sey REM PROGRAM IN DATA STATEMENTS 


First we start with RUN 400. Then we start the main 
program with RUN. Next enter SYS 7184 to start the 
machine language program. Finally we check with RUN 
300. This tells us if the machine language program 
has worked. 

You can do many things with machine language 
routines. Two good examples would be, fast graphics 
on the screen and sound generation. 
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The USR(X) function 


THE USR(X) FUNCTION 


With the SYS-cammand you can call a machine language 
program. The start address is the number in brackets 
following the SYS-cammand. This camnmand does not 
take or deliver values fran the machine language 
program to the BASIC program. If this 1s necessary, 
you have to POKE the values to certain memory 
locations where they can be used by the machine 
language program. If the machine language prograin 
stores same values to certain locations you can get 
those values in BASIC using the PEEK-cammand. 

The machine language program has to be terminated by 


the RTS-cammand (oocode 60 hex). The program will 
then return to BASIC. 


If there are a large number of variables going to or 
caning fran the machine language program, the 
SYS-cammana together with PEEK and POKE  becames 
quite camplicated. In this case it 1S better to use 
the USR(X) canmand. 

With the USR(X) cammand you can hand over a value 
fran BASIC to the machine language program (X 1n our 
example) and the machine language program delivers a 
value to the BASIC program (Y in our example). 
Example: Y = USR(X) 

Before you call the machine language program with 
the USR(X)-canmmand you have to- enter the 
Start-address into locations 1 and 2. 

For our machine language program starting at 1Cl0 
hex has to look like the following: 


POKE 1,16 
POKE 2,28 
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16 FOR [="423 TO 743s: POKE [. 255° HEAT I 
15 EMD 
24 FUR [="4e5 TO P4an:PRINT PEERS DO HESXT I 


eo EHD 
SA VRUske 3 
em EMT 
V 
A 
L HEX/DEC CONVERSION (<64K) 
U 
E 163 16? 16" 16° = POSITION 
+_____—- 
0 0 0 0 0 
4096 256 16 1 
2 81922512 32 2 
3 12288 768 48 3 
4 16384 1024 64 4 
5 20480 1280 80 5 
6 24576 «1536 96 6 
7 28672 1792 112 7 
8 32768 2048 128 8 
9 36864 2304 144 g 
A 40960 2560 ‘160 10 
B 45056 2816 176 1 
C 49152 3072 192 12 
D 53248 3328 208 13 
E 57344 3584 = 224 14 
F 61440 3840 240 15 


How to use this conversion table: 


Hex to Decimal 
For each of the four hex digits locate the correspon- 
ding decimal value and accumulate. 
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Decimal to Hex 

Find in the table the largest number which is smaller 
than the decimal value being converted and note the 
position and equivalent hex value. Subtract the previous 
number from the number being converted and locate 
that hex value and position. Repeat for each remainder 
until finished. 


Note that maximum values are FFFF (hex) and 65535 
(dec). 


ASClI-table: 

0 1 2 3 4 5 6 7 
NUL | 0|DLE 112 
bon | foor[ 7 Par [af 
STX | 2|oce | 98 | + [ane 
ETX | 3|D¢3 ee 115 
ear] foe She 
IENQ | 5|NAK 101 | u {117 
pox eon] 2 i 
BEL | 7 fers 2 103 | w i119 

104 | x 1120 


_ 
& 
< 
~ 
N 
— 


10/SuB 106 | 2 122 
11]ESC 107 123 
12| FS os | ia. 
CR 109 


mm 4-0-0 O200OMM 
mam!) Ooo! pO} 00) NJ] op] 01] BI] Go| Ro] | © 
BE 
ae 
3 


Pe 


n ) 
Cc 
Pe) 
2) 


110 
127 


147) DEL 


CZ 
”n 


Powers of two 


4096 
8192 
16384 
32768 
65536 


131072 
262144 
524288 
1048576 


2097152 

4194304 

8388608 
16777216 
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Base converting 
with the VIC-20 


3.5 k RAM 


BASE CONVERTING WITH THE VIC~20 


The following program allows you to convert numbers 


to and fram different bases. The following kinds of 
numbers are possible: 


hexadecimal 
decimal 
octal 
binary 
octal-split 


Dll Bese 

ee Pe te ae 

® PRIATTHBCLG a" BASE COWVWERTER" 

a a 

PEIMT' T CONVERT HLM BERS 

PRE TAT DATO DECIMAL OTA! 

PRINT OCTAHL SPLIT AES AMD BIMe pe! 
PRINT ATE MTER BRS» MUP BER" 


Re re Re 


‘a 
Mayle MB i ho 


21 PRINT"AND CONVERSION WAHTED 
25 PRINT: PRINT 

26 PRIMT!OCTAL-SPLITa“S¢" 

20 PRINT DECIMALS “0° OCTAL=<o¢" 


S1 PRINT HEMADEC IMAL = Ho ELMAR sR 

32 PRINT AQP TO 7 DIGITS" 

23 GOTO 146 

S5 PRINT "MMRGAINCY. Hoe"; 

26 GET ASIF Ag="" THEN GOTO a6 

S7 IF A**"!" THEM GOTO 120 

28 PRIMO! PR IMT MIRASE CONVERTING" ° PRINT 
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S94 POKE So468,12: EMD 

40 FRIMT "SISEHTER BASE “TO. S,H. Boe", 
do GET 26: 1F 2€="" THEM GOTO 42 
am FR TMT 2¢ 

Sl TF &$="H" THEM 14a 

Feo Pe TR Tee" 

Gl THEUT "HUMBER TO COMWERT! 3 A 
foe FP DRT te" 

TO FRIHWT "Wel BASE... CIOS. BD PO", 
TS GET Tene Yee" THEM GOTO 4 
Te FPRIMT ''€ 

irl FF TdT ate! 

Sa [F 2€="5" THEM Lee 

Se TF 2£€=2"T1" THEM 498 

a4 TF 2$="0" THEM Bee 

oe TF 2&@="—" THEM 644 

aS GOTO 646 

148 PRT Mec P RES AA KEN oS 
1146 GET RE: IF R#=""" THEM GOTO 116 
L2G FR DRT Og" 

126 PRIHTTARBC LO" ELCOMP HUMBER S " 
l4h FPRIHT a": 

LEG GOTO 43 

494 IF VWé="0" THEM Bete 

dam IF cane THEM Lema 

Sl TR eee" THEM LS 

i eas 

Sekt Wee BTR os" 

Fad GOSIB See 

meas GOTO Se 

Sob fs 

ieee Pe LT 

ate i 7 | 

Sei GOSWER Ge 

ee GOTO SE 

ae oi a 

Sa TF Wee" T" THEM bate 

Seo [RY S THEM GOSUESSE: eG: eerie 
Som TREE "4" THEM GOSUE See Ae: GOTOLeae 
BMG GOSUAR Sete 

Hla A&G: GOTO Fie 

Bek GOSUB Sete 

A306 GOTO 3 
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mth 


SE; 


rm}: 


r33 73 


& & 


we oa “= oe 


= 


& 


aa Fa 
ot Fl 
srl 
re 
tp ed 
pated 6 
tt teat 
fog od 
a al 


SE A 

“Pe 

el 

1 ae 
Lede 
Lene 
Lee Ss 
Lede 
imap] | 
{ee 
1 Bee 
1 Ble 


mony em 
“ pror- wy 


IF Y$="D" THEN 790 


[Fv$="6" THEM GOSUBIZG ARG: GOTOL135 


TF e="H" THEM GOSUBSSE: A&G: GOTO 


ROSIE Se 

Ae: GOTO S4e 
BOSUE See 

GOTOSS 

Red 

Hahi+ 1 

Be lHT cA 3 

Tare! Bee 

Beh oeTHT ete, Bo 

Fah 

IF BUe THEM S814 

IF Y="H" THEM Sie 
IF ‘S#="S" THEM S12 
PR IMT ‘'$; 

GOTO see 

bsfy- J 

IF He@ THEM Sid 
PRIMT Beha, 

GOTO soe 

FF! LT 


2 RETURN 


eed fete Lo 
Eh 
per 
Fath + 
IF Belz THEM oe 
le 1 2 
GOTO S368 
D=THT OR 3 
ane TE eT 
De Tet 
A=h~D 
G=G+H 
Cele 
[Sek J 
TF Beoe THEM oe 
IF 2#2"5" THEM learn 
PRIMT DEC TMRL e's 
Pre TMT 


Lea 
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LAE RE TURE 

1135S FRIAMTUOK TAL SPLIT ="; 

1146 Bosoe@: Be eset: Ee] oe 
L158 Be THT CA 258% 

116 CieAR- bees 3 

1165 “se 

1178 ASB 

1138 B= 

1196 GOSUE Sen 

L2RGl b= 

T21@ PRTHTECH 3S 

L22R Hehe 4 

1230 IF Hoe THEM leia 

Pade M+ | 

Led IF &>1L THEM FPRIHT: GOTO 5 
25h ARC BO Spee Be Soe Be doe GOTOL LS 
1260 REM Os 

1265 PRIWT 

12°78 C16: Zeek 

1258 Be THT CRA 

1298 1A" Be 

1294 A=B 

1306 GOSUB oan 

ISLA Gl Gee5s 

Laee@ A= 4 

1338 GOSUB See 

13406 G=G+61 

PRIHT'DEZ TAAL =" 

A=( 

IF WE="8" THEM FRINT OGOTO Bia 
TR oWée "A" THERM Lee 

BEeh TR YEO" THEM Ba 

1366 GOTT 3S 

1468 PRITAT ST THREUT UO MUP IER TO OWE T on Pe Dpto ee TET 
4a. FPRIMT OME BSE CTO Soe Bo oto, 
1482 GET WE TR Wte"" THEN GOTO peas 
14@3 PRINT We FR DMT 

L465 Hl 

1406 G= 

L4a7 HI=LEN CES 

14140 FOR Tei TO WI 

L415 MM SeM IDE CE. To do 

L420 HEASO Ce AES 

1425 HL=HI-J 

1430 IF Hes? THEM dbetS 

1435 Be Loe cH Bee 1 TH 3 

i446 GOTO L448 

L445 Bel oe Ape oe LE THLE 

1450 HEMT I 

1455 FOR T=1 Ta Wo 

1460 GeG+Re Ls 

1468 WHEAT J 

1468 FRETATOPRLAT PR IAT 

147 PRIA T TEC T MAL =o G 


J 
Ly 
mM 


at 
Fy om OF: 
aif} 


t 
Fy 
my mac! 
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an a 
] if] (I 
Tey, 
Lee 
1611 
Led 
ee 
1 oAe 
Lia 
LES eS 

Leda 
13 
Lees 
Looe 
166 1 
Lere 


| PRINT 


A= THT G+. 5) 

IF Wt="0" THEN 540 
IF Y#="B" THEM 516 
IF W$="S" THEN 1135 
GOTO 


too eee 


PRINT PRINT" HEADED IMPL= 


GOS Bee 

RLITO 1 cs 

Ed eal 

TF M=@ THEM 1leag 

TF BeoMoe 1a THEM Léa 
ALB hy efi 

PRINT CHRE CHI 2: 

GOTO 1615 


A ALeB CM +35 


GOTO 
Fo Fe TdT 
BOT 3S 
EMT 


1 tes 
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Universal experimenter 
board 


UNIVERSAL EXPERIMENTER BOARD FOR VIC-20 


The universal experimenter board gives ya the 
permission to connect external expans ions 
(additional memory, expansion of ports, etc.) 
directly to the "VIC expansion port". The board has 
as well as the connector, 2x22 connections which are 
arranged as follows (seen fran the backside): 


123 45 6 7 8 9 10111213 14 15 16 17 18 19 20 21 22 


ABCDEFHJIKLMNPRSTUVWXY 2 


This bus is also called S44 standard bus (standard 
of the American industry). The only difference is 
that the naming goes reverse, i.e. A is at the right 
Side. 

The board has traces on both sides. The signals. can 
easily be brought to the opposite side by using a 
plece of wire, connecting it through the board. 
CAUTION! The numbering on the board is apposite to 
the connector. At the "memory expansion" connector 
of the VIC-20 there are all data-signals directly 
fran the 6502A CPU and the addresses CAO-CA13. 

If needed, you should first connect the two missing 
address signals Al4 and Al5 fram the CPU to the free 
pins Y and 20. To do that, open the case and take 
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7 : bhi - Re ee A A ee Re aye ER, re eS Us oN ee ae 
. ae wt - f 


~ ‘ 
v 


| Seo0gc cc eb c00c00c9ce0000000000000 ” 


220 ©SGGGOOGOGCCCCCCCCCOOC0CCCSN OO! 


out the motherboard. Then turn the board so that it 


lies in front of you as in the picture belo.# 
Figure 2 


Now connect the two jumpers: 
Fran Y to pin 24 at the CPU 


Fran 20 to pin 25 at the CPU 


Besides the address and data signals, there are the 


Signals RAM 1, RAM 2, RAM 3 at the port. 
These signals are for selecting the three 1k blocks 
between 400 and FFF hex. That means that a memory 


expansion of 3k can be assembled without an external 
decoding. All you need are six memory chips 2114 or 
L2114, three capacitor 0.1 uF/60V, and six 18 pin 


DIL sockets. 


5/7 


SER ge ee Ce en ee eR RE Teg eT eta eee ee eT ee NT TNE eT Teg eae eee gee ee gt Te NA ee TR ea ae Ere Re ea TE ee CN ae Gee eT ee ee ENS ee NS Ge aE IL eT Le I ee Pg eT Ie ee, RP Re a ee SS ee TA gene NE, SEE we Ge ee ee Ley a ee ee age we ee IE Ly gh Ge MES eE wy Semler gp oT ee eee 


o o2UY A HAH BON Z2rRerAmodao 
Sou oO Oo Oo oD a ser tet TS Sa re OR ee ED, OD 
ee as I ee s eer eeee see: 2) 
~ ~ = LA bb p p > p 
be Roms & 22 6 2 3-5 
2 20 
oO Ry 
= zs 36 
= 


ae 
ead! 
os 
VLLZ 
8 
Sw 
(pL) L Wve 


‘Gt; 2WVd 


OZ-DIA 24} 40) 444L — OOO UOIsuedxa WY HE 


(9L) COWVY 


NR 
A 
+ 
S4) 
< 
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Since the 2114 RAMs contain 1024 x 4 bit, we have to 
use two chips parallel for a block of lk x 8 bit. 
For that we connect DO-D3 to 1/0 -I/O of the one 
D4-D7 to I/O - I/0__ of _ the other chip. 


PIN CONFIGURATION PIN CONFIGURATION 
2716 2732" 


Top 
View 


tRefer to 2732 
data sheet for 
specifications 


IMPORTANT - Read this notice 

Any warranty that may exist on any canputer hardware 
product that has been modified, altered, or has' the 
seal broken is VOID. 


The R/W - signal is to be connected to WE (pin 10) 
of all chips. The signals RAM 1, RAM 2, RAM 3 select 
the 1k blocks and go to CS (pin 8) of respectively 
two 2114 chips. 

The power supply for the six RAM chips comes from 
the VIC-20 also (pins 21,22 at the connector). 

For an expansion of more than 3k, you have to use an 
external decoding. The signals BLK1, BLK2, BLK3, and 
BLK5 are at the connector (pins 10-13) and can _ be 
used for parts of the decoding. A 74LS138 chip (UB1) 
generates the signals BLKO-BLK7, at which four of 
them are at the connector. 

BLKO selects the internal 8k block. 

BLK] selects the 2nd 8k block (2000-3FFF). 

BLK2 selects the 3RD 8k block (4000-5FFF). 

BLK3 selects the 4th 8k block (6000-7FFF). 

These are the lower 32k. 
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Starting at 8000 the VIC-20 has its character 
generator, color register, I/O ports etc. These 
addresses are selected interal by BLK4 (8000 - 9FFF 


= 5th 8K block). a 
BLK5 selects the 6th block (A000 - BFFF). This is at 
the connector and is suitable for the so called auto 


start ROMs. This means that 1f a programmed ROM is 
at the address, the VIC-20 jumps after power-up into 
that program. 


EPROMS : 


Ky “CA? A7 Veoh  +5V (21) 
(J) CA6 A6 A8 GAS (ih) 

(H) CAS AS Ag CA9 (M) 

(F) CA4 A4 Vpp VR/W (17) 
(E) CA3 A3 m4 OE 

(DB). CA2 A2 =s Alo CAlLO (N) 

(Ch Cay Al & CE 

(B) CAO AO & O07 CD7 (9) 

(2) CDO 00 O06 CD6 (8) 

(3). GD: 4 Ol O5 CDs 7) 

(ay: “Cp? 02 04 CD4 (6) 

(A) GND GND Q3 CD32: 165.) 

2716 


CAl] CA1l2 CA13 


BLKI 
BLK2 


EPROM 2 
EPROM 3 
EPROM 4 
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In a auto Start ROM the first cells have to lock 
like the following: 


SA004 S41 
SA005 $30 
SA006 SC3 
SA007 SC2 
SAOO8 SCD 


Address SA000 and SA001 contains the RESET vector 
(address, where the program should jump to after 
power up). Addresses SA002 and $A003 contain the NMI 
vector. 


During the auto start the operating system, the 
ports or the expansion are initialized. This means 
the first five canmands in an autostart program have 


to look like the following: 


JSR SFD8D ; RAM test 

JSR SFD52 ; Set vectors of Operating systems 
JSR SFDF9 ; I/O initialization 

JSR SE518 ; Screen initialization 

CLI ; Disable interrupts 
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Memory expansion 


MEMORY-EXPANSION FOR VIC—20 


The standard version of the VIC-20 comes with 5k of 
RAM. For many programmers this will become 
insufficient. For this reason we have developed 
a 16k RAM/ROM board. This card can hold 1kx8 bit 
RAMS, and 2kx8 bit EPROMs. 


The memory map of the standard version of the 
VIC-20: 


aaa — 2000 Hex 
_1000 
3K free 
-O3F F 
1K 
0000 
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To expand memory up to 8k we have to fill the empty 
area between 0400 hex and OFFF hex with 3k of RAM (1 


chip 2kx8 bit and 1 chip 1kx8 bit). 
We use block A on the board. For the 3k RAM we need: 


1 RAM lkx8 (4118 Mostek) in socket Al 


1 RAM 2kx8 (M58725P) in socket A2 
We have to make the following connections on the 


board; First we define the start address of block A 
(38k) to 0000 by using a jumper fran A to O on the 
plattforn. 


0000 Hex ———~————————————-—-—-—~——~—~ 
1K RAM, internal 
0400 #£————~—-———-—~————-———~—-—~—~—~ 
1K RAM 4118 
00 SN ae ee ne aaa ee ee 1x 2K RAM 
2K RAM M58725P 
OFFF —-—-—-———--——-———————~—————~— 
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Now we have to define the start address of the 
sockets within block A. Socket IA should start at 
address 0400 hex. For this we have to connect CSl 
with 1,2. 1,2 selects addresses 0400-07FF. 

Socket 2A should start at address 0800 and should be 
selected for addresses up to OFFF. To make this 
addressing possible we have to connect CS2 to 2,2. 
For details see chapter: THE 16k BYTE RAM/ROM BOARD. 


CSI 
qo O 
cs2 5 So 1,2 
csL SF © 
22 o§ 0 
© © 
O O 
© O 
O O 


Our next step is to define the type of chip used in 
the two sockets. Socket 1A should hold a 1kx8 bit 
RAM. With this type of RAM we connect pin 2 and pin 
4 at the line of pins beside socket 1A. 


Socket 2A should hold a 2k RAM. For that we connect 
pin 2 with pin 4 and pin 5 with pin 6 at the line of 
Pins beside socket 2A. 

Now the card is prepared for the 3k RAM expansion. 
Next we need an adapter for the VIC-20 expansion 
port. 


2K x 8 RAM 


socket 2A 
M58725 
Mitsubishi 
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1K x 8 RAM 


s0ckel 1A 4118 


COO0O000000 = 


The adapter consists of a small board anda 44 pin 


plug. The board and the plug have to be connected 
according to the above table. 
The addresses CA14 and CAL5 are not at the expansion 


port of the VIC-20 and therefore have to _ be 
connected to two unconnected pins at the expansion 
port. These pins are Y and 20. To do this, we have 


to open the case (three screws). 


Adapter Board 


BOM RR 


‘¢ 
% 
% 
« 
+ 
% 
* 
* 
# 
* 
5 


Memory Board Connector 


The populated RAM/ROM board and male connector for expansion 
connector 


65 


Main board of the VIC-20 — seen from the solder side 


Attach a jumper fran pin Y at the expansion port to 
pin 24 at the CPU. Attach a second wire fran pin 20 
at the port to pin 25 at the CPU. 


to 6502 CPU 
Pin 24 in 25 
272 @©@0@@7COCCOCCCCCCCSOEEBCEEE® | 


Z. eeceeevneneenee0ee0e0ee0e0ee0000 A 


Adapter board connecting 


The adapter board UC625 has to be plugged in so that 


the numbers are in the upright position (1-22). In 
the VIC-20 the numbers are just the opposite. 
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@®eeeeesersteeeeeeseeeesdeoeeeee?ee®e 
22 21 20191817161514131211109 87654321 
P Adapter board ! 
, A OOOO) 


Now make the 30 connections using the following 
table: 


| Memory 


board 


1 PA 

22 B 

2 C 

3 D 

4 ‘= 

5 F 

6 H 

7 J 

8 K 

9 L 

M 

N 

| P 

R 

IS 

y 

Z 

| V 
Connect: 1> 1 A-A 
22> 22 B->-6 

2->H a.s. 0. C->5 a. s. O. 


After you have made all the connections, check them 
one more time. 

Block A (8k) of our board is exhausted now. The 
remaining portion is used internally in the VIC-20. 
Now we can define block B to start at $2000 and fill 
with RAM up to S3FFF (8k). 
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Another possibility is to use an EPROM starting at 
SA000. If you have an EPROM starting at $AQ00 you 
can have an autostart program by storing the start 
address of that program in SAOOO (lower byte) and 
SAOO1 (higher byte). 

Locations SA004 to SA008 have to contain the 
following: 


SA004 : S41 
SA005 : $30 
SA006 : S$C3 
SA007 : $C2 
SA008 : SCD 


The first five cammands in your autostart program 
have to be the following: 


JSR SFD8D ; test of RAM 

JSR SFD52 ; definition of vectors 
JSR SFDFG ; I/O initialization 

JSR $SE518 ; initialization of screen 
Cli ; enable interrupt 


Definition of start address SA000 for block B: 


We connect pin B on the board, and pin A to the 
right of the 74154 chip. Now the start address. of 
socket 1B is SAQOO. 

If we want to use four 2k EPROMs (2716) we have to 
make the following connections at the chip-select 
plattform: 


2K AQOO — A/FF — O 
hiewit 
2K A800 — AFFF— O 
es 


oO 


Oe A Ar Ot Os TOO 50 


2K ie ib 
O 


Decoding within the 8k block B 
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Now the start addresses of the four EPROMS are 
def ined. 

To be able to use 2716 EPROMs, we have to make _ two 
more connections at each of the four sockets: 


Since the RAM/ROM board 615 1s very versatile yOu 
also could use RAM-chips at $A000, then the 
connections would look like the following: 


QO 7 
2K x 8 RAM O 
1 
SY2129 or O 
M5872P from °F 
Mitsubishi or O 
HM6116-P3 from Hitachi © 
Oo 68 


If you want block B to start at $2000 instead of 


SAQ00, you just have to use a jumper fran B to 2 
rather than A. 
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16 K byte RAMROM-board 


Memory expansion has never before been so interesting as today. 
Some of the new personal computers cry out for expansion from 
the moment they are first turned on. Our experience also shows 
that after satisfying an appetite for RAM, the computer enthusiast 
soon desires EPROM. 


Consequently, ELCOMP has developed a memory expansion board 
with special features. The new memory expansion board (European 
size) allows the use of 16k RAM or 16k EPROM or a combination 
of RAM and EPROM. Our philosophy is founded on the bytewide 
concept which permits the use of RAM chips compatible with 
2716 EPROMs. For example, this means that one socket can hold 
a 2716 EPROM or a 4802 RAM from MOSTEK. Also possible is 
the use of 4K and 8K EPROMs (2732 and 2764). 


This makes memory expansion very flexible because it allows on 
the same board, for example, a RAM expansion of 8k and an 
EPROM expansion with monitor, editor, assembler,etc. It is easy 
to change this configuration later to accommodate 17k EPROM 
or 16k RAM. The board has traces on both sides and uses the $44 
standard bus. The 44 connections are marked by 1—22 and A--Z 
(similar to KIM, SYM, AIM, VC-20, ATARI, etc.) . It is also 
possible to use it with our expansion board (ELCOMP-1, order 
# 606). Therefore, you can connect the board easily to almost 
any 6502 microcomputer. 


You also can connect the board directly to your 6502 computer. 


Then you have to connect the microprocessor directly to the 
board. 
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The 16k RAM-ROM board is divided into two 8k blocks: A and B. 
You can define the start address of each block by decoding from 
addresses A 12 to A 15 0n the IC 74154. Thus you can define the 
start addresses to £0000, 81000, ...... F000. Within the 8k blocks 
the addresses are decoded by ICs 74LS138 and 74LS08 to steps 
of 1k and 2k with addresses A 10 to A 11. 


Figure 1 shows the decoding of the RAM-ROM board. The de- 
coding of the 8k blocks is the same for A and B. Figure 2 shows 
the distribution of the sockets among the blocks A and B as well 
as the numbering. The decoded signals for the 4k boundaries can 
be taken from a DIL socket at bottom right; the signals for 2k 
and 1k can be taken from 2 DIL sockets between the decoding 
and memory ICs. The upper socket is for block B, the lower for 
block A. The signals at these sockets are shown in Figure 3 


CS1-CS4 are the chip select signals for sockets 1—4 (pin 18 for 
24-pin IC; pin 20 for 28-pin IC). 2,1—2,4 are the four 2k and 
1,1—1,8 are the eight 1k decoded addresses. 


Sample for block A: 
Pin A is connected to the decoded addresses 2 and 3. 


Pins 2,1 —2,4 decodes the following addresses: 


2,1= $2000 — $2/7FF 
2,2= $2800 — $2FFF 
2,3= $3000 — $37FF 
2,4= $3800 — $3FFF 


Pins 1,1 — 1,8 decode the following addresses: 


1,1= $2000 — $23FF 
1,2= $2400 — $2/FF 
1,3= $2800 — S2BFF 
1,4= $2C00 — S2FFF 
1,5= $3000 — $33FF 
1,6= $3400 — $37FF 
1,7= $3800 - $3BFF 
1,8= $3C00 -- S3CFF 
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* 7408 Standard TTL 


must be used 
(no 74LS08) 


ey 
w 
= 
YY) 
Jj 
wv 
w 


“moo Dw pe ON DO AWDH =| CO 


sig 6 e | 
e e | 
| cs23 ——e @ 
° ; | 
| cs33 ——_——e e | 
e @ | 
| cs43 ———e e 
e e | 
0 B | 
1 | 
3 : 
: L Same like below | 
a eae | ee a a ep ee eS ee A ge Be do et 
6 CS1A “+e 1k NOOO 
7 g 2k 1k N400 
8 i} ) CS2A <te ik N800 
9 . 2k 1k NCOO 
A 12 CS3A <0 1k (N+1) 000 
B 12,13] ) uf 2k 1k (N+1) 400 
C A CS4Aaa-@ 1k (N+1) 800 
D a 2k 1k (N+1) COO 
E a 3 
: Soa ' 
e 
@ NOOO 
Zs} . 
e N80C 
@ 
eS ® (N+1) 000 
e 
@ (N+1) 800 


Fig. 1: Decoding on the RAM-ROM board 
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Fig. 3: Distributing of the decoded signals 


If you put four 2k EPROMs or RAMs into the sockets, the 
following connections are needed: see Fig. 4a. The start address 
of socket A then is 822000; the one of socket 2A = £2800: socket 
3A = $3000; socket 4A = $3800. If you use four 1k RAMs the 
connections are to be made according to Fig. 4b. Then the start 
addresses are as follows: 


1A = $2000 
2A = $2400 
3A = $2800 
4A = $2C00 


If you need the addresses $3000 — £3FFF, you must connect 
according to Fig. 4c. 

The old addresses at the sockets are at the lower pins (2,3 —2,4 
and 1,5 — 1,8); the even addresses are at the upper pins (2,1 — 
2,2 and 1,1 — 1,4). This means if you connect A to pins 5 and 6 of 
the decoding socket you will get the following start addresses: 
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2,1 = $6000 

2,2 = $6800 

2,3 = $5000 

2,4= $5800 and 

1,1 = $6000 1,5 = $5000 
1,2 = $6400 1,6 = $5400 
1,3 = $6800 1,7 = $5800 
1,4= $6C00 1,8 = $5C00 


NO 
NO 


CS3A 


Le) 
oe) 


CS4A 


SEeeene 


NO 
L 


4b 


2D 
hs 
| 


1,1 


\ 
—= 
NO 


CS2A 1,3 


‘ 


CS3A 1,5 


—_ 
ie») 


CS4A 


a 


4c CS1A 


[] 


CS2A 1,3 


1,4 


(i 


| 


Fig. 4: Connections of the decodes signals to the chip select pins 
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Sample 1 (Fig. 5) 
Sockets 1A —4A, 4x 2k RAM/EPROM 1A=$%4000 1B = $8000 
Start address A000 2A=$%4800 2B = $8800 


Sockets 1B —4B 4x2k RAM/EPROM 3A=$5000 3B = $9000 
Start address $8000 4A=$%5800 4B = $9800 


Sample 2 (Fig. 6) 
Sockets 1A —4A, 4x1k RAM 1A =%3000 1B =%4000 
Start address $3000 2A=%3400 2B = $4800 


sockets 1B —~4B, 4x 2k EPROM/RAM 3A = $3000 3B = $5000 
Start address HOOO0 4A=$%3800 4B = $5800 


Sample 3 (Fig. 7) 
sockets 1A —4A, 4x2k EPROM/RAM 1A =$%4000 1B = $6000 
Start address 83000 2A=$%4800 2B = $6800 


Sockets 1B —4B, 4x 2k EPROM/RAM 3A = $3000 3B = $5000 
Start address 000 4A =$3800 4B = $5800 


For example, if you use four 2k RAMs in an 8k block it does not 
matter whether the start address of £5000 is at socket 1A or at 
3A. This is different from EPROMs. There the decoded address 
area must correspond with the contents of the EPROM so the 
program in the EPROM can run. 


Here is another version of sample 3 (Fig. 8). In this sample the 
sockets are decoded in rising sequence: 
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1A =%3000 1B = $5000 
2A = $3800 2B = $5800 
3A = $4000 3B = $6000 
4A =$4800 4B = $6800 


; @2eeoeoe@ @e#e@e2eoesee i; @ee0080 ee @e2@e0e0ce i | 

ie es: si . 7408 [] 74138 
ean 2B ad 1B 2 @ ees0e@ ee 

e| , . 


Sample 4 (Fig. 9) 
Sockets 1A, 2A: 2 x 4k EPROM 1A = 4000 
Otart addresses SA000, 8000 2A = 8000 


Next, definition must be made at each socket for what chip will 
be used (1k, 2kKRAM or 2k, 4k EPROM). To do that, there is a 
line of pins at each socket. Fig. 10 shows a socket and this line. 
The signals A11, WE, A10 come to the line from outside and there 
are connections to the socket: pin 19 (21) and 21 (23). The 
numbers in parentheses are for the 28-pin ICs, Fig. 11 shows the 
connections for 1k x 8, 2k x 8RAM and for 2716, 2732 EPROMs. 
A11 OE lines are connected to GND. 


z 
=) 


A12 


Al —\ VCC 
A8 


AQ 
A11,VPP,WE 


GNO 


(8) 

(9) 

(10) 
(11) 
(12) 
(13) 
(14) 


17 (19) 
16 (18) 
15 (17) 
14 (16) Fig. 10: 


Ni 
Oo ON DOR WHD = 


= oe 
NR — © 


HS 5) socket and distributing line 
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The last sample shows a memory expansion with 8k RAM from 
M000 to S8FFF and 2k EPROM from £800 to & FFF. The 
sockets 1A — 4A contain RAM; socket 1B contains a 2/16 
(Fig. 12). 


Fig. 12 socket 1A — 4A, 4 x 2k RAM 
socket 1b /1x 2k EPROM 2716 


The last figure shows the signals at the bus, similar to the S44 
bus. The same configuration of signals is on the ELCOMP-1 
board. 


A 
B 
C 
D 
E 
F 
| H 
J 
K 
L 
M 
N 
| P 
| R 
| Ss 
T 
1 U 
V 
W 
| x 
Y 
Z 


Armament of the board: The following figure shows the 16k 
RAM-ROM board with the positions of the ICs. For the use of 
EPROMs are EPROM-compatible RAMs, 28-pin sockets are 
designated. 
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0000000 
6000000\0 


0060000006 


ee RAMROM 


C0000000 0000000 


00000000 


EPROM 24 Pin 
EPROM 28 Pin 
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board components (component side of board) 


decoding within 8k blocks 


gy SR 
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pe SE 
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1k boundary decoding 
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If you use ICs 2716 or other 24-pin ICs, four pins will remain 
empty on the left side of the socket. To the left of each socket 
you can see eight soldering dots where you can put a strip which 
may be wired with jumpers, matching the IC used. For decoding 
the 8k blocks there are two rows, each with 16 soldering dots 
where you can connect two 16-pin DIL sockets. The best way 
is to plug 16-pin DIL platforms (adapters) where you can easily 
connect the jumpers needed for the decoding. At bottom right 
there is the decoding for the 1k boundaries. The best way in this 
case also is to connect your jumpers on a platform. 


87 


Input/Output 


programming 


INPUT OUTPUT PROGRAMMING WITH YOUR VIC-20 

The VIC-user port with its 6522 VIA chip allows’ the 
experimenter to do his own input/output programming. 
This means that you can send data from the camputer 
into an external device, such as an alarm system, or 
a power switch for your TV, radio, stereo, or coffee 
pot, etc. You can use your camputer as a powerful 
programmable timer, or control unit. You also may 
input data fram external devices  and_ bring 
information (binary) fram external sources into your 
camputer. Now you can use this data, do the specific 
calculations and then store it in RAM or output it 
again into an external device. 

Here are some practical examples: 


You have eight switches which are connected with 
the eight bits of the VIA input port. 


z 
= 
ae = 
yf re 
= S 
ox E 
a < 
Or 
LLJ N & 
wm UW I NN WY 
» na ON 
‘a » 6 & 
_ OF 
O A «2 = 
ah 2s 
Mm CO WO 0 
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These switches are connected with your light 
switches in each roan of your hame or apartment. If 
one of the switches is closed you will have 0 volts 
on a specific input. Now you can write a 
camputer-program, which checks all the switches 
whether they're closed or open. This gives you the 
direct information as to whether the lights in a 
particular roan are switched on or off. Your 
canputer program also can measure the time a_ switch 
was open or closed during a twenty-four hour period. 
All this information can be stored and recalled 
after a certain time interval. I.e. after two weeks 
the canputer can give you a report, how long each 
Switch was closed or open over that period. You 
even can use the information and calculate the money 
you spent for electricity during that period. This 
example is only one of thousands of things you can 
do with an inexpensive hamecamputer, anda _ little 
knowledge of input/output programming. 


Recanmended parts 


For your experiments we recommend the following 
parts: 


1.) 1 power supply DC + 5V/1A 

2.) 1 prototyping board similar to the "global 
specialties" protoboard PB 101 fran ACP in Santa 
Ana, CA. 

3.) 1 15 conductor ribbon cable approx. 2 feet long. 
4.) 1 connector for the VIC-20 user port (24 pin) 
fran TRW Circle 

251-12-90-160 type 5024ee-30) fran Advanced Computer 
Products in Santa Ana, CA 

5.) 3-8 switches (on/off) (spst). 

6.) 3-8 leds and 3-8 220 /0.25W resistors. 


Bring out the eight output ports of the VIC-20 (PBO- 


PB7) via the ribbon cable to the prototyping board 
PB1O1. Now you can connect the switches and _ the 
LED's to the ports. 
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Figure 1 shows you a sample with the port 
lines of port B connected to a LED 


Circuitry on a_= proto board.Lines PBO-PB7 
are connected. 


THE 6522 VERSATILE INTERFACE ADAPTER VIA IN THE VIC- 
20 


The 6522 VIA, which is the heart of the VIC-20's 
user port, 1s an extremely powerful I/O chip for 
6502 based microcamputer systems. The 6522 VIA 
versatile interface adapter constitutes a 
Significant improvement over the original 6820 PIA. 
The 6522 adds two internal timers, a serial in/out 
and parallel in, serial out shift register, and 
latched data input on the peripheral ports. 


Enhanced handshaking permits high-speed data 
transfer between multiple CPUs. 


The primary feature of the 6522 VIA is a pair of 


8-bit bidirectional data ports. Each of the 16 
bidirectional lines may be programmed as either an 
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input or output. Same of the lines may be interfaced 
with the internal interval timers providing the 
ability to generate specific time intervals, or to 
measure specific time intervals. The 6522 is 
controlled by an internal file of 16 8-bit 
registers. 


A SAMPLE SESSION WITH THE PROTOTYPING BOARD 


For your input/output programming experiments, we 
recanmend to hook up the protoboard as  discribed 
above. Plug in the connector into the user port #6. 


USER 1/O 1 = joystick 


2 = expansion 
3 = audio/video 


123 4 5 6 7 8 9 10 11 12 4 = serial port 


5 = cassette 


ed — 


A B CO EF H J K LM N 


PIN #| TYPE | NOTE | 


GND 

+ 5V 

RESET 

JOYO 

JOY1 

JOY2 

LIGHT PEN 
CASSETTE SWITCH 
| SERIAL ATN IN 
+ 9V 

GND 

GND 


10@MA MAX. 


16@mA MAX. 


ZEeroexRXxerwrnmoow > 
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Note: Verify your VIC-20 is turned off prior to 
attachment of lines. 


It is also very useful if you put a label on your 
protoboard indicating corresponding port lines to 
wire color. 


red=PBO blue=PB2 white=PB5  green=PB7 
black=PB3  pink=PB6  yellow=PB4 = orange=PB1 


When everything is hooked up properly, you can 
Switch on your VIC-20. You are now in a position to 
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send and receive data with your prototyping board. 
An 8 bit pattern can now be sent to external 
circuitries and devices. 


For your first experiment we will give you a small 
program which allows you to look at either input or 
Output data in binary form on the prototyping board 
ports. Type in this program and run it. The computer 
first asks you whether you want to input data or 
Output data via the I/O port. If you type in "1" for 
inputting data, the display shows you whether or not 
anything iS connected. 255=decimal and 
11111lll=binary as the momentary status of the input 
port. This means that all switches are open and all 
inputs are logical "1". You can test that while you 
Change the input information with the switches. 
Close one or more switches and watclf the numbers) on 
the screen. If you are unfamiliar with number 
systems and the conversion between different bases, 
you should at this time refer to a base conversion 
chart.Almost any primer book contains the basics of 
number systems. 


S REM COPYRIGHT BY 

7 REM WINFRIED HOFACKER 

1@ PRINT'CTHIS PROGRAM" 

12 PRIHT"SHOWS THE STATUS" 

{4 PRINT"OF THE USER PORT IN" 
16 PRINT"DECIMAL UND BIHARY" 
24 PRINT S" 

39 SECM =" SEC ean 1" 

49 GOTO 28u 

41 POKE 37135.8 

64 PRINT" DECIMAL "PEEK CS? 136) 
61 PRINT: PRINT" BINARY" 


62 P=PEEKC37136> 

63 GOTO 38 

65 FOR T=1 70 6 

76 PRINT FP AND 1: :P=P/2 

86 HEAT I 

e1 PRIHT" BIHAR" 

9@ PRINT MARS CPANDI260=128); 
$1 PRINTRBS* CPANDG4 5=64) : 
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2 PRINTABS< CPAHD3259=32) ; 
3 PRINTABS< CPANDI69=16); 
PRINHTABS « (PANDS9=8) ; 
PRIHTRES © (PANDA =4 5 | 

PRTNTABS¢ CPAND2 3 =2) ; 

PRIHTABS¢ CPRMDL 9=15; 

932 FOR W=17T0 38@@:HEXT 

110 PRINT"OCGHTENTS OF DATA pee 
111 ae iaas DOR" ;PEEK CSP LSS 
J12 FOR #=1 TO 3886: HEXT 

128 G0TO ‘60 

‘BE PRINT" IMPUTH=<1°, OUTPUTS"2°" 

lo THPUT H 

4 IF H=1 THEM 41 

@ IF W=2 THEH 38a 
S) 


Dw ty lO tos to kp 
Jo oA 


4 REM pee iece DF INFORMAT IOS 

2 PORE 37138, 255 

ia PRINT" WHET BITS" 

aH INFUT E 
A TF KOSS 
M POKE : 
(4 
A 


Wo Wa fea Ph Th Pas 


THEH 318: 6079 29a 
37136. K 
4 L=PEEK CSPI S46) 
4 GOTO oe 


Yao Tad et 3 hk iy 
LAY fe. i 


If you type in "2", you can output information to 
the port and to your prototyping board. 

A logic probe, which you can obtain fran almost any 
electronic-parts store, would be a great help in 
identifying all the ports. You don't need it if you 
use your own LED indicators as shown previously. 


It 1s strongly recanmended to experiment for a while 


with the program, switches, and LED's. 

Close a few switches and use function 1 of the 
program to check if the binary representation 
exactly corresponds to the numbers on the screen. 


Input/output programming with the VIC-20 


The VIC-20 has, as mentioned before, the 6522 VIA 
chip wired to the user I/O port. Unfortunately there 
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are only 8 I/O lines, PBO-PB7, available for the 
user.The remaining lines, PAO-PA7, are used for the 
joystick, cassette switch, light pen, and _ same 
other internal features of the VIC-20. 

Each of those I/O lines (PBO-PB7) can be used as an 
input or an output dataline. To set the direction 
of the dataflow you just set the data-direction 
registers with: 


POKE 37138,0 all ports are input 
POKE 37138,255 all ports are output. 


If you only want four of the eight data lines as 


inputs and the rest to remain output lines, you have 
to enter : 


POKE 37138,240 


PB7 PBO 


Now the lines PBO-PB3 are input and lines PB4-PB/7 
are output. 240 is the decimal equivalent of the 
number 11110000. 

Thus you can set any cambination of input/output 
lines between 0 and 255. With this poke statement 
you now have set the direction of the data. Now you 
can send data out or check incaming data fran the 
Outside of the camputer. 

After power up, the VIC-20 sets all I/O lines as 
inputs. You can check this while you type in the 
Following: 


10 ? PEEK (37138) 
RUN 


The VIC should print out a 0. 
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Now we can try to output data to the port. The VIC 
(resp. the 6522) has a certain address where you can 
put the data in. 

Lines PBO-PB7 37136 decimal 

Everything you poke into this location appears now 
at the output port. 

With PEEK 37136 you can read the information which 
is brought to the port lines. The DDR (data 
direction register) has to be set to input or output 
prior to this step. If the port lines are open (not 
connected to +5V or OV) the PEEK 37136 command will 
supply a logical one. 

The following minidemo allows you to set the 
datalines and look at them afterwards. 


PRIM T"REGISTER IS: "J PEERCSYises 
MEAT TOMES? J 


iW REM MIMTDEMO 

eH PORE SPisne. ha 

oH FOR T=hTOo 22S 

eH PORE 2fine.] 

BW FOR T= To 255 

Bo FOR T=LTOLRRE MEATY 

rE RINT" THE CONTENTS OF" 
re PRINT" THE Io" 

ra 

aS 


The program above sets the output ports PBO-PB7 one 
after the other to each possible cambination. After 
the loop is finished the = autput remains 
255=11111111. 

You now can modify this program to output a bargraph 
- like canbination. This means that one line after 
the other is switched on and the previous line is 
Switched off. To check this you can connect LEDs and 
resistors to each portline (PBO-PB7) and can watch 
the blinking lights. 


MIMTDENG 2 
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PORE 
FOR I 
mee TI 
Fk T Le es 

PORE : oe 

rye Ie a TO 255 

FOR Wei TO Ga: HMESTY 
PRINT" THE COMTEMTS cir" 
PRIMT"T“O-REGISTER" 
PRIHMT'TS: “PEER CRPLiSé 2 
HEMT 
BOTH pet “4 


Bete Grete fede Pad fede fonds fomde freed pct, focnehe 


pop my fee Eta 
BG SCRE PT OD ge od Pe 


ates 
ogre, 
enable 


ares Sa (ee 
Lit 
rips 


The data can also be obtained fram DATA statements. 
(see the following program) 


r; 
ones 


REM MIMI DEMOS 

READ NUM 

IF HUMDL2S THEN RESTORE: GOTO210 
FOR G=1 TO S8G:NEXTG 

PORE i 
PRINT PEER (37136) 
GOTO £18 


on. 
DATA is 2.4.8,16.32,64,128, 255 
ag 
al 


r 


at bos, 


Deer 
state 


CUE me Py ims 


eer bee sae 
Hud Wad sy 


iat ied Pals Puce Pele Pale fale Pele fet 


morte fe tel alt Pals fay eet 


For study of the internal life of the 6522 chip and 
for better understanding of this powerful chip, we 
recanmend to take a loak at the R6500 Hardware 
Manual fram Rockwell or the Third Bock of Ohio 
Scientific from us. 


IMPORTANT NOTICE: 

If a port or all ports are set as outputs, do not connect a port to 
+ 5V or to ground without a 330 resistor in series. When set as 
outputs you can connect the ports either to + 5V or to ground. 
Never use a voltage greater than 5V DC. 
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Input/Output 
programming — 


Part Il 


INPUT/OUTPUT PROGRAMMING - PART II 


Until now we only have delt with eight port lines of 
the VIC-20 user port. Port B of the 6522 VIA chip 
however, also has very powerful handshaking and 
interrupt capabilities. For this purpose, pins CBl 
and CB2 can be used to bring in information from 
the outside. This may happen only when a_ specified 
pulse occurs on CBl or CB2. 

After powering up, a negative transition on CBI 
allows the VIC-20 to bring in information fron _ the 
Outside via the handshake port. 


+5V 


0 


If the peripheral device or your outside circuitry 
generates a positive transition fran OV to +5V you 
also can use this as a trigger. Therefore, you have 
changed the peripheral control register inside the 
VIA chip. Bit 4 of this register sets the condition 
for a positive or a negative transition on CBl. It 
is originally set to zero and can be set to one by 
the following POKE cammand. 


POKE 37148,PEEK(37148)OR16 
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Now, after a positive going pulse appears on CBl 
(Pin B of the VIC-20 user port) the interrupt flag 
will be set and the camputer knows that an external 
device is ready to send its information via the 8 
I/O lines. 


Bit 4 in the Interrupt Flag Register (IFR) is 
affected. 


+ 
mo life2tstatsto tr 
1 2 4 8 16 =32 64 128 


THE INTERRUPT FLAG REGISTER (IFR) 


The interrupt flag register has the decimal address 
37149. Fran BASIC you can access this register with 
the WAIT 37149,16 statement. 

The logical AND leads to log."1" only if both values 
are log."1". This means that the content of the flag 
register (37149) has to be ANDed with 0001 0000 (16) 
and checked if it's logical "1". 

Normally bit 4 of the control register is "0". If 
the statement WAIT 37149,16 is executed, the logical 
AND-function result 1s zero. This means that BASIC 
will not work until a positive going pulse appears 
which makes the control register a "1". Please be 
careful with this statement and don't use it unless 
you can supply a +5V to CBl on the user port. 


1H Axa" tt 

194 AF=" 

126 FOR J=1 TO re 

136 WAIT 37143,16 

146 N=PEEKCS71362ANDI27 
156 IF N=13 THEN 138 
168 AS=AS+ CHR SCN 

176 MEST J 

186 PRINT A$ 


The sample above allows you to verify what we have 
learned so far. 
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After executing the WAIT statement, data can be read 
fran the user port PBO-PB7 into the camputer. 


N = PEEK (37136) 


The read operation N = PEEK (37136) resets CBl so 
that 1t can be checked for another set of data. 
37136 is the address for the input/output register B 
containing handshaking. The content of the register 
is brought in and assigned to the variable N. 

(see program listing above) 


The value for N in this case could be between 0 and 
255. It depends on how the switches are set on the 
prototype board. 


The following program allows you to read in ASCII 
Code. 


14 DDR=37 139 

2 ACF=37147 

38 FR=37149 

4A PCR=37148 

186 FORE DDR. & 

116 FOKE ACR. 2e 
138 POKE PCR. 16 
135 FPRIHT’OFERATE” 
146 WAIT FR, 16 

id2 B=PEEK CSL R62 
ide PRINT PEEK CBPLisée: 
158 PRIHT' RHA" 


You can read in up to 72 ASCII characters. The input 
is limited to 7 bits. 


yoo 
oooke’ 


SEM MINIDEMO CEL INTERRUPT 
PRINT "HOF ACKER" 

PRINT"USE CEL" 

PRINT" APPLS! +54" 

WAIT 87149. 16 

PRINT" AHA" 


iT) A fs te Pp 
mt 


yo, 
a ip mt 


agus 
exe 
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AND gate 


NAND gate 
(negated output) 


NAND gate 
(negated inputs) 


OR gate 


NOR gate 
(negated output) 


NOR gate 
(negated inputs) 


EXCLUSIVE — OR gate 


Inverter gate. 


Logic symbols 


Color code for resistors 


is 


Ist figure 
2nd figure 
No. of zeros 


Gold = 5% 


Silver =10% 

1,000 Ohms = 1K&R 

1,000,000 Ohms = 1Msv 

0 Black 5 Green 
1 Brown 6 Blue 
2 Red 7 Violet 
3 Orange 8 Grey 
4 Yellow 9 White 


F=A.B 
F=AB 
or 
F = A+B 
F = A+B 
F = A+B 
or 
F= A.B 
F = A.B+A.B 


Code for capacitors 


Colour Codes: 
— as for resistors 
— first three bands 
— units are pF (pico-Farads) 
Number of Markings: 
MF : micro Farads. 
nF : nano Farads. 
pF : pico-Farads 


M  : (Russian ‘P’) 
pico Farads 
H_ : (Russian ‘N’) 


nano Farads 
Numerals only: 
— first two digits 
are the value. 
— Third digit is 
number of following zero’s. 
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interface for power 
system users 


INTERFACE FOR POWER SYSTEM USERS 


For those of you who want to use the VIC-20 for 
control applications we have developed an interface 
that allows you to turn power systems on and off. 
The interface can be pluged in at the USER I/O 
connector on the back side of the VIC-20. 


There are two relays in that interface so that you 
can control up to two independent devices. 

Port B of the VIA 6522 is connected to the USER I/O 
connector. PBO — PB7, CBl and CB2 are connected as 
well as 5V and GND. Port A of that chip is used for 
the joystick,the lightpen, and control of the tape 
recorder. 

Caution: The maximum permissible load of the port is 
100mA. 


102 


We use a TRW CINCH plug (TRW 251-12-160/50-24A-30) 
to connect our interface to the user I/O port. 


El=input of relay 1 at PBO=C 
E2=input of relay 2 at PBl=D 


The input of relay 1 (El) is to be connected to  PBO 
(at pin C). E2 can be connected to PBl (at pin D). 
In the following circuit only one relay is 
connected. 


a 

(o) 
nls 
JIC 
K| 8 
L| > 
Mis 
N 


appliance 


LO EE 


110 V Switch 


The following picture shows the board and the 
canponents. 
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relais for device B relais for device A 


Cc 
n 
m 
wa 
0 
< i 1 : 
ite o 
0 75453 3 
jumper 
e TS © 
appliance 
Plug | wall plug 
110V Component side 110V 


Be careful while experimenting with the 110 V power! 


The next picture shows the interface in an open box. 
It is recanmmended that you mount the interface in a 
box because of the dangerous voltage! 
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The software necessary to control the device is 
Shown in the following BASIC=program. This program 
gives you the following control-options: 


-) Turn on and off in certain intervalls 


-) Turn on and off at a certain time 
) Set clock 

) Turn on 

) Turn off 
) 


Stop 


NM &W Dh FE 


After you turn on your VIC-20, all lines of port B 
are input. We can check this with PRINT PEEK 
(37138). You will see a zero which tells you that 
all lines are set for data input. 

If you want to have all lines set for data output 
you have to POKE 37138,255. We only use PBO and 
control this line with: 


POKE 37136,1 and 
POKE 37136,0 


If the interface is connected, the POKE cammand will 
Create a series of audible clicks fran the relay. 
Note that location 37136 is the data direction 
register of port B, where you define whether the 
port 1s an input or an output and location 37138 is 
the port itself. 

The following program makes it easy to control the 
relay. It is written for relay 1 but may quickly be 
Changed for relay 2 or expanded for both relays. 


1@ PORE 37 
e4 GOTO 3k 
180 REM TU 
lig PORE 37 
12 RETURN 
2409 REM TURM OFF 
#10 POKE 37136, 1 
224 RETURH 

368 REM SWITCH 


eee Se 
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21@ IF PEEK(37136.=1 THEN POKE orl 
320 IF PEEK“ 371262=@THEN POKE27136, 
325 PRIHT"TURNED OFF"; 

320 GOSUB 400:PRINT: PRINT: RETURH 


136,0:PRINT"ON ":GOSUB 4@@: PRINT: RETURN 
l 


400 PRINTLEFTSCTI£. 2)": "MIDS¢TI$. 3.22": "RIGHTECTIS. 23 


41@ RETURH 

{Q@@ REM ON-OFF EVERY N SECONDS 
161@ PRINT" TIMER” 

1@11 PRINT"EHTER TIME BETWEEN" 
1412 PRINT"THE SWITCHING" 

1814 INPUT N 

1815 GOSUB 306 

1028 N=N#*EG 

1438 T=TI+N 

1a35 GET C#:1F C$<>""THEN RETURN 
1044 IF TI<T THEN 1835 

{450 GOSUB 386 

imé@ GOTO 1834 

2006 REM CLOCK FOR SWITCHING 
2H05 GOSUB 4aa 

2016 PRINT"ENTER TIME" 

2029 PRINT"ENTER ag@aan” 

2821 PRINT"WHEN READY” 

2038 FOR MX=1TO9 

2040 PRINT"TIME "5 Mex 

2054 INFUT T$ 


2860 IF LENCT$9<>6 THEM PRINTS DISTIS PLEASE" GOTOSH4e 


207 TOMHISVALCTS 3 

2asa [FTCMK=@THEM 210K 

2698 NEXT Mx 

21@@ FOR J=iTO M¥:PRIAT Teds °HEST J 
2118 I= 

2115 PRINT 

2130 IF TCLIMVALC TIS 2 THEN 

ede PRINT" Shan eet re 


Soi T=I+1 

2208 IF Tei to=8 THEH RETURH 
3298 GOTO 2415 

PRINT'WHAT TIME [5 IT?" 
IMPUT TIMES RETURN 
PRINT" BYE" - ENT 

PRINT'T) PLEASE SELECT” 
PRIHT'1, TIMER" 
Ae i Pork" 
PRIHT®S,SET TIME" 
PRINT". TURN by" 
PRINTS. TURH OFF” 
PRTIHT'é, STOP" 

GET tt 

IF C#=""THEH 314@ 

3206 C=VALCCE) 

3210 ON C GOSUB 1980, 2008, 2980, 1908. 208, 2399 
3228 GOTO See 


S) 3 oe to OS co 
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Se 


in mis 
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mt 


Qo G2 2 ht Pf Po 
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Appendix 


HOW TO CONNECT UP TO 3 JOYSTICKS TO YOUR VIC-20 


This article shows you how to build your own 
interface, with connections for up to 3 joysticks to 
your VIC-20 camputer. When you buy your computer it 
has only one port on the right hand side of the case 
for a single joystick. This port is connected 
internally with port A of PIA #1 (for details check 
with the schematics of your canputer). One data line 
of the joystick port is connected with PB7 of port B 
of PIA #1. 

The following section will explain how to connect 
two additional joysticks to your VIC-20. Your system 
will then have the capability to operate with a 
total of three joysticks. At the end of this chapter 
you will find a program which takes advantage of the 
additional joysticks. This program even works on the 
basic version of the VIC-20 with 3.5k of RAM. 


Construction of the dual joystick 


First we have to construct an interface box which 
plugs into the I/O expander connector at the left 
hand side of the back of your camputer. 


List of items required : 


1 CINCH TRW connector 
CARDCON 251-12-50-170 
50-24SN-9 8124 
2 diodes 1N4148 or similar 
2 joysticks fran Cammodore or ATARI 
2 9 pln connectors (see VIC-manual) 
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The two joysticks are connected to the user port of 
the VIC using this interface. The two joysticks are 
connected to the camnputer via port B of PIA #1 (6522 
VIA chip). After assembling the interface according 
to the schematics you can plug in the joysticks and 
test them with the program below : 


10 POKE 37138,0 
15 N=PEEK (37136) 
20 PRINT N 
25 GOTO 15 


After you connected the joysticks enter RUN. You 
will see numerous numbers scrolling in the lefthand 
Side of the screen. The numbers you obtain depends 
upon the positions of the joystick. The directions 
are detected as follows : 


right joystick : North 255-1 
South 255-2 
West 255-4 
East 255-8 


left joystick : North 255-16 
South 255-32 
West 255-64 
Fast 255-128 


If you want to write your own programs you also need 
to know how to detect whether or not the fire-button 
is pressed. If the firing button of the right 
joystick is pressed a one is deducted fram the 
actual value. If you push the button ao the left 
joystick, 16 is deducted. 


Example: The right joystick supplies a 254 if the 
button 1s pushed but no movement in any direction. 


Note: If you push the right joystick to north east 


and push the ffiring button, you will = get 
255-1-8= 244. 
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While the program is still running, you should get a 
value of 243, if the button on the right joystick is 
depressed. Be aware that the same value will also 
appear if you move the right joystick to the east 
and the west simultaneously. This is’ physically 
impossible, and the programmer has to rectify this 
Situation. The camnputer must recognize that the 
firing button was pressed. 

The program has to know that it cannot detect one of 
the directions as long as the firing button is 
pressed. To understand this, press the firing buttm 
and move the joystick to the east. The value of N 
Should not change at this time. Similar things 
should happen if you move the joystick to the west. 
While the program is still running, push the button 
on the left joystick. The value should now change to 
653. The left joystick will behave like the right 
joystick. 


Pressing the firing button has the same effect as a 
Simultaneous movement to east and west. You will 
get a value of: N=255-64-128=63 


The program has to know which joystick appears to 
have moved to the east and to the west at the same 
time. If this is detected the camputer knows. that 
the firing button was pressed. 


Now we want to show you a game of skill program 
which uses the dual joysticks described above. Two 
players can play against each other. The goal of the 
game is to run as long as possible around on the 
screen without hitting the wall or the snake of the 
opponent player. Moving backward is not allowed. The 
program works on the basic configuation of the VIC 
(3,5k RAM). 

Player II ---> left joystick 

Player I ---> right joystick 


Start the program with RUN. You then have a choice 
between wanting the instructions or the start of the 
game. The program also allows you to play against 
the camputer. 
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PRINTS)" > PRIHT PRINT: POKES6879. 27 
PRINTSPOCds "8 YO-SNAKE @"- GOTO 13 
PRIHT"PRESS “F*’ IF YOU WANT To PLAY" 
REM 
PRINT"AGAINST A FRIEND. OR” 
PRINT’ “C* FOR COMPUTER" 
GOTO 26 
REM COPYRIGHT © 1982 
REM WINFRIED HOFACKER 
PRIHT "INSTRUCTIONS 2" 
GETL2¢ 
[F22$="N" THEMPRIWT - GOTO4 
TFS2Eo>"'" THEMIS 
20 PRINT:PRINT’YOU CAN PLAY THIS" 
22 PRINT"GAME AGAINST A FRIEND OR” 
23 PRIHT "AGAINST THE COMPUTER" 
24 GOTO 3 
2e GETOPS: [FOPS=""THEHZE 
2? TFOPSC>"C"ANDOPESC> FP "THEME, 
fo [FOP#="F "THEH4E6 
Sa PRINT: PRINT" JOYSTICK #1 05 YOURS" 
25 PRINT YOU START IH THE LIPPER” 
SE PRINT"LEFTHAWT CORHER" 
46 PRINT: PRINT "PRESS ANY KEY" 
4? GET 228: IF 22$="" THEM 47 
Se OTM Dacds . Deeds DCC d MLSS 
sa FORI=1TO4 
Fa READ Dect DPC Ts. DoCTs 
eM HEMT 
S85 FORM={TOLS: READMY CN? “HEAT 
AQ WS LysA StS 3-8 CSa8 N=, ae ble, Oy Wetiis 
in 


eed coe colt oo Soo OOS es Os ee Se Oe 


Mm UB os & 


oRas-Uad: 
img GOSUBI aaa 
S PRIMT "Sd": 
mM TLePA ll CL osP14 ULC S5s2P19 FTsde S232 EMSS CL=a219 
Det s=2 UDC 2yH2  Me5a 
PSC P3=P7 7S (PSCS=BR9S “CASSHoS 


FORE SS oie 44 

T2=T1 

PUSPEEK (27136) 

PRDSMY¢ (FURMD24O 3/169: [FPROCDOTHEHUDS 1 1=PRD 
=1: GOSUBS@: IFEN=1 THENSaaG 
LFOP$="C" THEN1 OGG 

PL Dest FUANDS) : LEPLICDATHEMUD (2 = 
T=2 SOSLiREAa: ie ONTO ds "FY THER 
[FEH=1aNTOP$= "0" THENSAae 


C ieatien) 
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“7. 
pore? 


me 


et cee cE ee A re OR te nO SE teeta 
Wo 8 Oo mom) Ob 5 0 LA at 
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— 
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NO 


SOTOL sae 
ASPeCTU+ De CUE Teun Too 
a 1: RETURN 


POE PS eT Ube TS 
ate SHA 
POKER. DECUD 1 3 
PYfT3=A 
RE TUR 
REM PET Move 
MEQecChs  YaDyccDs 
TPCPEER CCA+M +447 <8 AMD PEER CCA+H + =35 5 THEN IGE 
TPODSLORCIARTHEML ZG 
TRENT CWOSETHEHHR=L  G=R-GOTALL1LE 
H=F° G=L 
astacHo  Y=aDy CH 
TPCPEEK C CASK ++ 42 =5 AMD PEER CCA+H S97 9 =S 9 THEN LS Se 
[FHA SGTHENH=G6:GOTO1LIG 
GOTO S88 
[FRNDCY OSE THENHSY Ga GOTOL1Ie 
Sd ae a 
GOaTOLLis 
KeDTRCCDS Ye DyP cD 
IFFEER CCA+H+ =O THEM TES 
IF CD=LORCTHRTHEML Eee 
TERHD CVO SE THEMHSL  G=R GOTO 4So 
H=R G=1 
a tes irs CH : i tke } rH 
FREER CCA+* +f o=S THEM TS aa 
vipa bifibe Aame-airaip 
BOTO1S 9H 
TPRMDC WO SE THEHHEY Gal GOTO) te 
M=ch |: (Gok! 
GOTO L468 
CTH 
IFRANDC Yo oWTHEHI Bee 
A=CAFDRCCDI+D CCD: 
IFPEEK CAO SoS THEME AGH 
POKECA. CL 
PORE ALDCCCDS 
CA=A 
TFT I-TEZcMTHEN 1 38 
EOL Ap! 
IFMSATHEN M=1 


19549 GOTOSaA 

“0048 FEM CRASH PLAYER 

JOAS TFI=1THEMMW=2 

3MH6 TF I=2THENMW=1 

SG@iaW POREPZ CIS ULC I> 

“4248 POKER, DCCUDC I o3 

SASH SEI Ae ina 

S444 PRI NT Stee: LAYERS" I 

“850 PRIHT"PENG! " 

S055 GOSUE Faan 

S460 PRIHT MTP. #1: "USc15: 

SBF? IFORS="P"THENPRINT" PET: "CS: G0OTORG78 
S465 PRINT"PL. #2: "US¢23 

547°4 TT=TI 

Sash GETAF 

SH90 IFTI-TT 4*647THENSe Se 

S180 GOTOLaa 

6M REM CRASH VC-28 

6016 POKECA, CL 

POKER. DCCChs 

US¢dosSe doe Nee. 98: TEM. STHEMH=. 5S 
PRINT" stemig vC-2e", 

GOTOSease 

7ARY POKESES? 7: 228 

fS8i@ FOR P=15 TO a STEP-1 

7O268 POKE 3é6978.F 

ra30 FOR H=1TO 14 

7@do NEXT H 

,OS@ HEMT P 

7HEH FOKE 3 
reayva FORE 36 
rASH FETURH 

SMA POKERRBRYZR. 1S 
SAiG POKESES?E. oe 
SASH FOR P=1T05 
HEsT P 
PORES6S 72.4 
FOR P=i17T05o 
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mr i> mas 


“ty 


5 hm 


a 
Nt mi 
~) TT fe 
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va Ths 

AS ON OAL 
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8100 POKE36376.6 

811@ FOR P=1T05e 

8128 NEAT P 

8130 POKE36878, 0 

6140 RETURN 

19@@@ REM DRAW BORDERS 

10814 PRINT Ts ASH" Re" 

19026 FORI=1T022:PRINTA$: NEAT 
19046 FORI=17T021:PRINTAS) SPCC 20) AS) (HEAT 

1@@6@ FORT=1T021:FRINTAS: -HEXT: PRINT EMER" (RIGHT#CA$. 1); 
19146 RETURN 

119@@ ZU=PEEK (37136) 

119@5 IFZW=251THEMD=1:GOTOS7a 
11019 IF2liR247THEHD=2 : GOTOS? 
11615 IF2ZU=239THEND=3: GOTOS7a 
11420 IFZU=253THEND=4 : GOTOS7 
11425 GOTOEae 

Saaa@ DATA @.22.20.-1:8,60,1,8.62:0)-2 
SQ@05 DATAG:@,40:0.80,4,3,0,9,6,.2,8)1 
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Because it is not always easy to identify the control characters in 
a BASIC listing, we put together a summary of the VIC-20 cursor 
control characters. 

ASCII PRINTS DESCRIPTION 
Reverse Off Use CTRL key 


Reverse On Use CTRL key 


RUN / STOP 


Cursor Up 


= 
[R] 
[Cc] 
[v] 
is] 
+) 
[=] 


Cursor Down 


Cursor Left 


Cursor Right 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


master charge 


HOFACKER 


ELCOMP PUBLISHING, INC., 53 Redrock Lane, Pomona, CA 91766 (Phone: (714) 623-8314) 


Please make checks out to ELCOMP PUBLISHING, INC. 
Please bill to my Master Card or Visa account + 


Payment: Check, Money Order, VISA, Mastercharge, Access, 


MICROC. HARDWARE HANDB. 
CARE AND FEEDING... 

8K MICROSOFT BASIC 
EXP.HANDB. 6592 AND 6862 
HICROC. APPLICATION NOTES 
COMPLEX SOUND 

SMALL BUSINESS PROGR. 
SECOND BOOK OF OHIO 

THE THIRD BOOK OF OHIO 
THE FOURTH BOOK OF OHIO 
THE FIFTH BOOK OF OHIO 
GAMES FOR THE ATARI 
ATARI LEARNING BY USING 
PROGR. 1.6582 MACH.LANG. 
HOW TO PROGR. IN MACH.L. 
FORTH ON THE ATARI 

A LOOK INTO THE FUTURE 
PROGRAM DESCRIPTIONS 
ZX-81/TIMEX 

TRICKS FOR VICS 

JANA/1 MONITOR 
PROTOTYPING CARD 

6522 VIA 1/0 EXP. CARD 
SLOT REPEATER 

2716 EPROM PROGRAMMER 
SOUND WITH THE GI AY3-8912 
BK EPROM CARD (2716) 

12 BIT A/D CONVERTER BOAR 
146K RAMROM-BOARD 

THE CUSTOM APPLE BOOK 
MAILING LIST FOR ZX-81 
MACHINE LANG. MONITOR 
ADAPTER BOARD FOR ZX-81 
EDITOR/ASS. FOR CBM 
ASSEMBLER FOR CBM 
GUNFIGHT FOR PET/CBM 
UNIVERSAL EXP. BOARD 
ADAPTER BOARD 

PROFI WORDPROC. F. VIC 
TIC TAC VIC 

GAMEPACK FOR VIC 
HAIL-VIC 


Interbank, Eurocheck 

Prepaid orders add $3.50 for shipping (USA) 
£5.00 handling fee for C.O.D. 

ALL ORDERS OUTSIDE USA: Add 15 % shipping. 


California residents add 6.5% sales tax. 


Card # 


EXPANDING YOUR VIC 
RUNFILL 
MINTASSEMBLER 
LEARN-FORTH 

POWER FORTH (APPLE) 
ATMONA-1, CASS. 
ATHONA-1, DISK 
ATMONA-1, CARTRIDGE 


EPROM BURNER FOR ATARI 
EPROM BOARD (CARTRIDGE) 
ATMONA-2, CASS. 
ATMONA-2, DISK 
LEARN-FORTH 

POWER FORTH 

ATAS 

ATMAS 

PROGRAMS FROM BOOK # 164 
INVOICE WRITING, DISK 
GUNFIGHT FOR ATARI 
WORDPROCESSOR, CASS. 
HOW TO CONNECT. 

MAILING LIST, CASS. 
MAILING LIST, DISK 
INVENTORY CONTR., CASS. 
INVENTORY CONTR., DISK 
WORDPROCESSOR, DISK 
WORDPROCESSOR, CARTRIDGE 
PROGRAMS FROM BOOK # 162 
KNAUS OGINO 

ASTROLOGY PROGRAM 

EPROM BOARD KIT 
FLOATING POINT PACKAGE 
RS232-INTERFACE 

EPROM BURNER KIT 

ATCASH 

HOON PHASES 

ATAMENO 

SUPERMAIL 

BUSIPACK 1 

BIORHYTHM FOR ATARI 


Superboard and C1 P are trademarks of Ohio Scientific Co. 
ATARI is a trademark of ATARI Warner Communications 
PET, CBM and VIC-20 are trademarks of Commodore Business 


Machines. 


TRS-80 isa trademark of TANDY Radio Shack. 
APPLE II is a trademark of APPLE Computer Inc. 
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